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Preface 



The IBM PC Convertible Technical Reference consists of two 
volumes. Volume 1 describes the hardware design and 
provides interface information for the IBM PC Convertible. 
Volume 1 also has information about the basic input/output 
system (BIOS) and programming support. Volume 2 contains 
the BIOS listings. 

The information in these volumes is both descriptive and 
reference-oriented and is intended for hardware and software 
designers, programmers, engineers, and other interested 
persons who need to understand the design and operation of 
the IBM PC Convertible. These users should be familiar with 
the use of the IBM PC Convertible and understand the 
concepts of computer architecture and programming. 

Volume 1 has five sections: 

• Section 1 , "Introduction" is an overview of the system and 
the available options. 

• Section 2, "System Unit" describes each functional part of 
the base system. This section also contains the description 
of the interfaces. Programming considerations are 
supported by command code and register descriptions. 

• Section 3, "System Options" describes each available 
option. 

• Section 4, "System BIOS and Usage" describes the basic 
input/output system (BIOS) and its use. This section also 
contains the software interrupt listing, a system memory 
map, descriptions of vectors with special meanings, and a 
set of low-storage maps. In addition, Section 4 describes 
keyboard encoding and usage. 

• Section 5, "Compatibility with the IBM Personal 
Computer Family" describes programming concerns for 
maintaining compatibility among the IBM PC 
Convertible system and the other IBM Personal 
Computers. 



in 



Volume 1 has the following appendixes: 

• Appendix A, "Characters and Keystrokes" 

• Appendix B, "Unit Specifications" 

• Appendix C, "Logic Timing Diagrams" 

• Appendix D, "Power-On Self Test Error Codes". 

Volume 2 contains the BIOS listing and is to be used in 
conjunction with Volume 1. 

Prerequisite Publications 

Guide to Operations: for the IBM PC Convertible. 

Suggested Reading 

• BASIC for the IBM Personal Computer 

• Disk Operating System 

• Hardware Maintenance and Service for the IBM PC 
Convertible 

• MA CRO Assembler for the IBM Personal Computer. 
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Section 1. Power-On Self-Test 
(POST) 



The IBM PC Convertible uses a set of routines called the 
power-on self-test (POST) routines. These routines 
automatically activate system power, perform basic function 
and device control tests for the major system components, 
and initialize the system to the ready state. Because the 
operation of these routines is automatic and cannot be 
changed by an application programmer, the actual program 
listings are not included in this manual. However, it may be 
useful to understand the function of these routines and the 
initial values they may establish. 

Figure 1-1 on page 1-2 shows the sequence of the steps the 
power-on routines, the error indicators returned, and the 
initial values established. Figure 1-2 on page 1-9 and Figure 
1-3 on page 1-12 provide additional information on testing for 
the presence of devices. 
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Power-On Self-Test Sequence 



Description 


Error Indication 


Processor test: Verifies processor 
operation. 


System power off. 


System ROM checksum test: 
Verifies system ROM. 


1 -long and 1 -short 
beep, then system 
power off. 


Realtime clock RAM test: Verifies 
the clock. If contents have been 
altered, RAM is cleared and 
system profile defaults are loaded. 


1 -long and 1 -short 
beep, then system 
power off. 


Power source and battery check: 
Checks for external power. If no 
external power, checks for good 
battery. 


3-short beeps, then 
system power off. 


Base 8KRAM test: Validates first 
8K of RAM and clears it to zero. 


1 -long and 1 -short 
beep, then system 
power off. 


Internal modem power on: Checks 
for internal modem presence and 
applies power to it if present. See 
Figure 1-2 on page 1-9 for 
additional information. 





Figure 1-1 (Part 1 of 7). Power-on Self-Test Sequence 



1-2 Power-On Self-Test (POST) 



Description 


Error Indication 


Video adapter presence test: 
Checks for attached video 
adapters by nondestructive writing 
and reading hex A55A to address 
hex B0000 and B8000. Checks for 
video adapters with valid rom. 
Checks for LCD by determining if 
the 'LCD sense' line is set. 




Video interrupt vectors 
initialization: Initializes hex 10, 
1 D, 1 F and 44 video interrupt 
vectors to system default values. 




Video ROM validity tests: Checks 
for video adapter with valid ROM. 
See Volume 1 for additional 
information about adapters with 
system accessible ROM. Links to 
ROM if valid. 




LCD function test: Runs LCD 
function test if the LCD is present. 


Error 5001, 5002, or 
5003 


CR T adapter without ROM 
presence and function tests: If a 
CRT adapter without ROM is 
present, test vertical and 
horizontal syncs. 


Error 0501 


Operable display presence test: 
Checks to ensure that an operable 
display is present. 


1 -long and 2-short 
beeps, then system 
power off. 



Figure 1-1 (Part 2 of 7). Power-on Self-Test Sequence 
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Description 


Error Indication 


Display initialization: If not a 
resume sequence, initialize the 
display for POST. If the LCD is 
present, loads the default font 
from vectors hex 1 F and 44. 




Interrupt controller test: Tests the 
interrupt controller and initializes 
it to edge triggered, software 
end-of-interrupt, and interrupt 
types 8-15. 


Error 0101 with icon, 
1 -long and 1 -short 
beep, then waits for 
power off or 
Fn/Ctl/Del sequence. 


System timers tests: Tests the 
system timers. Timer-0 is 
initialized to 1 8.2 interrupts per 
second rate. 


One of the following: 

Error 0103 with icon, 
1 -long and 1 -short 
beep, then waits for 
power off or 
Fn/Ctl/Del sequence. 

Error 1 02 with icon 
and Fl prompt; POST 
continues. 


DMA controller test: Tests the 
DMA controller. 


Error 0105 with icon, 
1 -long and 1 -short 
beep, then waits for 
power off or 
Fn/Ctl/Del sequence. 



Figure 1-1 (Part 3 of 7). Power-on Self-Test Sequence 
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Description 


Error Indication 


Keyboard controller test: Tests the 
keyboard controller. 


One of the following: 

Error 0303 or 0304 
with icon, 1-long and 
1 -short beep, then 
waits for power off or 
Fn/Ctl/Del sequence. 

Error 1 02 with icon 
and Fl prompt; POST 
continues. 


Interrupt vectors initialization: 
Initializes interrupt vectors 
through 32 excluding the video 
interrupt vectors. 




Serial/parallel initializations: 
Initializes the serial and parallel 
adapter timeout values. 




Internal modem initialization: 
Initializes the internal modem. See 
Volume 1 for additional 
information about initializing the 
internal modem. 




RAM block check: Checks RAM 
for good contiguous 8K-bytes of 
RAM. 


Error 1 64 with icon 
andFl prompt. 



Figure 1-1 (Part 4 of 7). Power-on Self-Test Sequence 
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Description 


Error Indication 


RAM function test: Checks for 
functional RAM in 64K-byte 
increments and clears it to zeroes. 
This test is not performed during 
either a resume or Ctl/ Alt/Del 
sequence. 


One of the following: 

When less than 
64K-bytesofRAMis 
functional, error 0201 
or 0202 with icon, 
1 -long and 1 -short 
beep, then waits for 
power off or 
Fn/Ctl/Del sequence. 

When more than 
64K-bytesofRAMis 
functional, error 0201 
or 1 02 with icon and 
Fl prompt. POST 
continues. 


Diskette drive function test: Tests 
the operation of the diskette drives. 


One of the following: 

Error 0601 with icon, 
1 -long and 1 -short 
beep, then waits for 
power off or 
Fn/Ctl/Del sequence. 

Error 0601 with icon 
andFl prompt. 



Figure 1-1 (Part 5 of 7). Power-on Self-Test Sequence 



1 -6 Power-On Self-Test (POST) 



Description 


Error Indication 


Real-time clock test: Tests the 
update and interrupt functions. 
Zeros and initializes time and 
date, and sets alarm to zeros if the 
clock has not been updated or if 
power was lost. 


Error 0163 with icon 
andFl prompt. 


Portable printer interface test: 
Checks the function of the adapter. 


Error 5101 with icon 
andFl prompt. 


Printer/communications presence 
test: Checks to determine what 
printer and communications 
features are attached. See Figure 
1 -3 on page 1 - 1 2 for additional 
information. 




Internal modem test: Checks the 
function of the internal modem. 


Error 1101 or 1102 
with icon andFl 
prompt. 


Serial adapter test: Tests the serial 
adapter portion of the IBM PC 
Convrtible Serial/Parallel Adapter 
if it is installed. 


Error 1101 or 1201 
with icon andFl 
prompt. 


Feature adapter ROM presence: 
External adapters are tested for the 
presence of ROM. See Volume 1 
for additional information about 
adapters with system accessible 
ROM. Links to the ROM if valid. 


Checksum or feature 
error. 



Figure 1-1 (Part 6 of 7). Power-on Self-Test Sequence 
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Description 


Error Indication 


Set time of day: Sets time of day 
data area from real-time clock. 


Clock icon if clock has 
not been set by the 
user. 


Low battery test: Checks for good 
battery. 


Battery icon if battery 
is low and warning is 
enabled in the system 
profile. 


Complete POST: If a system 
suspend was active and the resume 
was not cancelled, the system state 
is restored and the application 
resumed. Otherwise, the LCD 
default font is loaded from vectors 
hex 1 F and 44, and the system is 
booted from drive 0. 


2-short beeps if any 
warning errors 
occurred. 



Figure 1-1 (Part 7 of 7). Power-on Self-Test Sequence 



1-8 Power-On Self-Test (POST) 



Modem Presence Test 











[ Start j 














Clear 

RS232.BASE 
table (hex 400). 














Clear 

PRINTER_BASE 
table (hex 408). 














Turn off power to 
internal modem 
and serial/parallel 
adapter. 














Write/read hex 
AA and 55 to 
work register at 
hex3FF. 














To 
Part 2 





Figure 1-2 (Part 1 of 3). Internal Modem Presence Test 
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From 
Part 3 




Yes (Other adapter present) 



Write/read hex 
AA and 55 to 
work register at 
hex 3FF. 



To 
Part 3 



Set first entry in 
RS232_BASE 
table to hex 3F8. 



f Return to POST. J 



Figure 1-2 (Part 2 of 3). Internal Modem Presence Test 
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From 
Part 2 




Set modem 
installed flag in 
equipment word. 



Set first entry in 
RS232.BASE 
table to hex 3F8. 



f Return to POST. J 



Subtract 1 from 
loop counter. 




Turn off modem 
power. 



( Return to POST. J 



Figure 1-2 (Part 3 of 3). Internal Modem Presence Test 



Power-On Self-Test (POST) 1-11 



Printer/Communications Presence 
Test 



From 
Part 3 



( Start J 

I 



Set pointer to 
PRINTER_BASE 
table (hex 408). 



-4 



Set pointer to 
PRT_TAB table. 



Printer presence test 



Printer Table (PRT_TAB) 



Does 
PRT..TAB \No 
entry = hex 

078? 




Entry 
(hex) 


Port 


078 
378 
3BC 
278 


Portable Printer 
Primary Printer 
Mono Adapter 
Secondary 



Yes (Portable Printer) 



Did 
'portable printers. No 
^interface pass. 
J>OST? 



9 

To 
Part 3 



Delay 1 60 ms. 



To 
Part 3 



Check portable 
printer status 
register (hex 
079). 



{Portable printer 
presence test 



o 



To 
Part 2 



Figure 1-3 (Part 1 of 7). Printer/Communications Presence Test 
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Send top of 
forms (ESC 4) 
command. 



Yes (Attached) 



Yes (Not attached) 




No (Not attached) 



- Portable ^ 
Sprinter status nof S» Y e s (Attached) 
v = busy within^ 
00 ms?> 



To 
Part 3 



To 
Part 3 



To 
Part 3 



Figure 1-3 (Part 2 of 7). Printer/Communications Presence Test 
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From From 

Parts 1 and 2 Part 2 



<3 v 



From 
Parts 1 and 2 




Store address in 
PRINTER-BASE 
table. 



Move 

PRINTER.BASE 
table pointer to 
next entry. 



Move PRT_TAB 
table pointer to 
next entry. 




$ 



To 
Parti 



Figure 1-3 (Part 3 of 7). Printer /Communications Presence Test 
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From 
Part 3 

Y 












Set pointer to 
RS232_BASE 
table (hex 400). 


J RS232 presence test 




y^ first table ^^ 
X^entry empty?v^ 

|Yes 


No (Internal 
modem attached) 
















Set serial/parallel 
adapter to 
primary. 




Move 

RS232.BASE 
table pointer to 
next entry. 






i 


I 




Turn on power to 
adapter. 


Write/read hex 
AA and 55 to 
work register at 
hex 2FF. 




I 




I 






Delay 1 00 ms. 


To 
Part 7 




I 


Test for primary 


Write/read hex 
AA and 55 to 
work register at 
hex 3FF. 




I 




To 
Part 5 











Figure 1-3 (Part 4 of 7). Printer /Communications Presence Test 
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No (Not attached) 



Yes 



Set RS232.BASE 
table entry to hex 
3F8. 



Move 

RS232_BASE 
table pointer to 
next entry. 



Write/read hex 
AA and 55 to 
work register at 
hex2FF. 



■{ 



Test for secondary 



9 

To 
Part 6 



Figure 1-3 (Part 5 of 7). Printer/Communications Presence Test 
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From 
Part 5 




Set RS232_BASE 
table entry to hex 
2F8. 



Move 

RS232.BASE 
table pointer to 
next entry. 



Set equipment 
word for number 
of printer and 
communications 
ports installed. 



f Return to POST. J 



Figure 1-3 (Part 6 of 7). Printer/Communications Presence Test 
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Turn on power to 
adapter at hex 
2F8. 



Delay 1 00 ms. 



I 



Write/read hex 
AA and 55 to 
work register at 
hex 2FF. 



Turn off power to 
adapter. 



Delay 1 00 ms. 



Yes (Attached) 




Yes (serial/ 
parallel attached) 



Set RS232_BASE 
table entry to hex 
2F8. 



Move 

RS232.BASE 
table pointer to 
next entry. 



Set equipment 
word for number 
of printer and 
communications 
ports installed. 



( Return to POST. J 



Figure 1-3 (Part 7 of 7). Printer /Communications Presence Test 
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ROM Map 2-4 

Common Equates and Data Areas 2-7 

Common Equates 2-7 

Processor Interrupt Vector Area 2-16 

POST and Bootstrap Temporary Stack 2-16 

BIOS Data Areas 2-17 

POST Temporary Data Area 2-23 

Common Macros 2-24 

Nonmaskable Interrupt Handler (B10NMIH) 2-26 

First Level Interrupt Handler (NML.FLIH) 2-26 

Diskette Resync (DSKT_RESYNC) 2-29 

Keyboard Data NMI (KBNMLDATA) 2-35 

Keyboard Clear NMI (KYBD_CLR) 2-37 

Translate Scan Code (KYBD_XLT) 2-38 

Real-Time Clock NMI (RTC_ALARM_NMI) . . 2-44 

Low Battery Check (LOW_BAT_CHK) 2-47 

Suspend NMI (SUSPEND) 2-51 

Resume (RESUME) 2-55 

Keyboard Services (Bl 1KYBD) 2-65 

Keyboard Interrupt Hex 16(KYBD_IO) 2-66 

Level 1 Interrupt Hex 9 (KYBD_INT9) 2-68 

Video I/O and Print Screen (B12VIDEO) . 2-77 

Print Screen Interrupt Hex 05 (PRT_SCRN) . . 2-116 

Diskette Support (B13DSKT) 2-1 19 

Diskette I/O Interrupt Hex 13(DSKT_IO) .... 2-120 
Bootstrap Loader Interrupt Hex 19 
(SYS_BOOT) 2-139 

Communications and Printer BIOS 

(B14COMMO) 2-143 

Communications Interrupt Hex 14 

(COMMO_IO) 2-144 

Printer Interrupt Hex 17(PRT_IO) 2-150 

TimeofDay(B15TOD) 2-153 

Time of Day Interrupt Hex 1 A (TOD_PROC) . 2-154 
Timer Interrupt 8 (TMR0_INT8) 2-166 

System Services (B16SYSV) 2-168 



ROM BIOS 2-1 



System Services Interrupt Hex 1 5 

(SYS_SERVICES) 2-169 

System Profile Services (SYS_PROF) 2-173 

External Event Services (EXT_EVENT) 2-177 

System Power Off Services 

(SYS_POWER_OFF 2-181 

System Status Services (SYS_STATUS) 2-182 

Modem Power Services 

(SYS_MODEM_PWR) 2-183 

POST Interval Services (POST_INTV) 2-185 

Wait Interval Services (WAIT_INTV) 2-186 

Device Busy Services (DEV_BUSY) 2-187 

Interrupt Complete Services 

(INT_COMPLETE) 2-190 

General Subroutines and Tables (B 1 7TABLE) 2-191 

Software Reset Routine 2-194 

System Descriptor Table 2-197 

Default System Profile 2-197 

Printer Configuration Table (PRTJTAB) 2-197 

ASCII Conversion (STR_CON) 2-198 

NMI Handler Entry Point Address 

(NMLJNT) 2-198 

Character Generator Graphics 128-255 

(CHAR_GEN_HI) 2-199 

Convert AX to ASCII (DSP_BYTE) 2-203 

Boot Strap Loader Entry Address 

(BOOT_STRAP) 2-204 

Keyboard Noise (KB_NOISE) 2-204 

Communications Baud Rate Table 

(BAUD_TABLE) 2-205 

RS-232 I/O Entry Point (RS232_IO) 2-205 

Indicate POST Error (ERR_BEEP) 2-205 

Beep to Speaker (BEEP) 2-206 

Disable All Interrupts (DISABLE_NMI) 2-207 

Enable Global NMIs (ENABLE_NMI) 2-207 

Get RTC Register (GET_RTC_REG) 2-208 

Put RTC Register (PUT_RTC_REG) 2-208 

Setup for Battery Savings 

(BAT_SAV_SETUP) 2-209 

Keyoard I/O Entry Point (KEYBOARD_IO) .2-210 

Keyboard Reset (KYBD_RESET) 2-210 

Set Data Segment (DDS) 2-211 
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Calculate Absolute Vector Offset 

(GET_VECTOR@) 2-211 

Keyboard Support Tables 2-212 

System Setup (SYS_SETUP) 2-214 

Vector Setup (VECTOR-SETUP) 2-215 

Error Message Routine (SYS_CHK) 2-219 

Resume Error Check (RES_ERR_CHK) 2-220 

Diskette I/O Entry (DISKETTE_IO) 2-221 

Icon and Error Message Routine (E_MSG) .... 2-221 

Icon Display Routine (ICON_PR) 2-225 

Diskette Interrupt Entry (DSKT_INT) 2-229 

Diskette Drive Parameters 2-229 

Diskette Timing Parameters (DSKT_BASE) . . 2-229 

Printer I/O Entry (PRINTER_IO) 2-230 

Video Parameters 2-230 

Video I/O Entry (VIDEO_IO) 2-231 

Video Parameters 2-231 

Memory Interrupt Hex 1 2 

(MEMORY_SIZE_DET) 2-232 

Equipment Interrupt Hex 1 1 (EQUIPMENT) . 2-232 

Cassette I/O Entry (No BIOS Support) 2-233 

Character Generator Graphics 0- 1 27 

(CHAR_GEN_LO) 2-233 

Time of Day Entry (TIME_OF_DAY) 2-237 

Timer Interrupt Handler (TIMER_INT) .... 2-237 

BIOS Vector Table (VECTOR-TABLE) 2-237 

Default Interrupt Services (Dll) 2-238 

Hardware Power-on Reset Address 2-240 

Release Date Marker 2-241 

System Model Byte 2-241 
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ROM Map 



Start Stop Length Name 
F0000H FFFFEH FFFFH ROMCODE 



Address 


Publics by Name 


Address 


Publics by Value 


F000:435D 


ACT_DISP_PAGE 


F000:0008 Abs 


K6L 


F000:0C72 


ADDR_TST 


F000:0010 Abs 


M4 


F000:E229 


BAD_DSKT_ICON 


F000-.0014 Abs 


KBFUNL 


F000:E7E6 


BAT_SAV_SETUP 


F000:001E Abs 


KBPADL 


F000.-E729 


BAUD_TABLE 


F000.-0020 Abs 


MIL 


F000:E75F 


BEEP 


F000:002C 


POSTMAIN 


F000:E762 


BEEP_SUB 


F000:0043 


POST_LOOP 


F000:E6F2 


BOOTSTRAP 


F000:03DB 


POSTCNTL 


F000:F85.9 


CASSETTE_IO 


F000:0A46 


MEM_TEST 


F000:EFE3 


CGA_TBL 


F000:OB4O 


STG_TST 


F000.-E2C6 


CHAR_GEN_HI 


FOOOrOBDD 


MEM_SIZE_CHK 


F00O:FA6E 


CHAR_GEN_LO 


FOOO-.OC72 


ADDR_TST 


F000:2D30 


CHECK_F0R_8250 


FOOO.-OCCF 


CLR_STG 


F000:0DEE 


CHECK_INT 


F000:0D0A 


ROM_CHECKSUM 


F000-.0CCF 


CLR_STG 


F000:0D15 


ROM_SCAN 


F000:2B61 


CMPT_ADAPT_TEST 


F000:0D5A 


VALID_ROMCHK 


F000:530A 


C0MM0_I0 


F000:0D6F 


ROMJ.INK 


F000:53DF 


COM_POWER 


FOOOrODEE 


CHECK_INT 


F000:2473 


CRT_TEST 


F000:134C 


TMR.TST 


F000.-FF23 


Dll 


F000:18AA 


DMA_CHECK 


F000:E85C 


DDS 


F000:1B49 


KYBD_TST 


F000:E261 


DEF_SYS_PROF 


F000:1E9A 


DSP_CONFIG 


F000.-E79B 


DISABLE_NMI 


F000:1F90 


LCDBUF_TST 


F000:EC59 


DISKETTE_IO 


F000:20EE 


LCDCTL_TST 


F000:4C95 


DISK_RESET 


F000:22E2 


DSP.INIT 


F000:18AA 


DMA_CHECK 


F000:2304 


DSP_FSETM 


F000-.EFC7 


DSKT_BASE 


F000:2384 


LCDINIT 


F000:E214 


DSKT_ICON 


F000-.2473 


CRT_TEST 


F000:EF57 


DSKT_INT 


F000:2548 


VIDEO_LINK 


F000-.4FB0 


DSKT.INTE 


F000:261F 


DSKT_TST 


F000:4C2B 


DSKT_IO 


F000-.2857 


PTR_COM_PRESENCE 


F000:261F 


DSKT_TST 


F000:2966 


MODEM_POWER_ON 


F000:E6C6 


DSP_BYTE 


F000:29EA 


MODEM_CONFIG 


F000:1E9A 


DSP_CONFIG 


F000:2B1A 


SEND_C 


F000:2304 


DSP_FSETM 


F000:2B26 


RECV_S 


F000:E6E7 


DSP_HEX 


F000:2B4B 


MODEM_INIT 


F000:22E2 


DSP_INIT 


F000-.2B61 


CMPT_ADAPT_TEST 


F000:FF53 


DUMMY_RETURN 


F000:2D30 


CHECK_F0R_8250 


F000:E7A3 


ENABLE_NMI 


F000:2D70 


RS232_TEST 


F000:F84D 


EQUIPMENT 


F000:2DCB 


MODEM_TEST 


F0.00:E73C 


ERR_BEEP 


F000:3174 


SEND_C0M 


F000:5A99 


EXT.EVENT 


F000:3192 


NMI_FLIH 


FO00:EC5C 


E_MSG 


F000:38D9 


GET_RTC_NMI 


F000:E128 


F1_IC0N 


F000:38E2 


PUT_RTC_NMI 


F000:5D4F 


FILL 


F000:3AC4 


RESUME 


F000:4E6C 


GET_PARM 


F000:3D40 


KYBD_IO 


F000:38D9. 


GET_RTC_NMI 


F000:3DA4 


KYBD_INT9 


F000:E7AA 


GET_RTC_REG 


F000:411D 


VIDEO_IO_l 


F000 : E864 


GET_VECTOR@ 


F000:415A 


SET_MODE 


F000:ED5F 


ICON_PR 


F000:42AB 


SET_CTYPE 


F000:570C 


INITIALIZE_STATUS 


F000:4332 


SET_CPOS 


F000-.E8E1 


K10 


F000.-435D 


ACT_DISP_PAGE 


F000:E91B 


Kll 


F000:4381 


READ_CURSOR 


F000:E955 


K12 


F000:439C 


SET_COLOR 


F000:E95F 


K13 


F000:43C2 


VIDEO_STATE 


F000:E969 


K14 


F000:43E8 


SCROLL_UP 


F000:E976 


K15 


F000:446B 


SCROLL_DOWN 


F000:EA87 


K30 


F000:44A7 


READ_AC_CURRENT 


F000:E87E 


K6 


F000:44ED 


WRITE_AC_CURRENT 


F000:0008 Abs K6L 


F000:4521 


WRITE_C_CURRENT 


F000:E886 


K7 


F000:4554 


READ_DOT 



2-4 ROM BIOS 



F000:E88E 


K8 


F000:4565 


WRITE_DOT 


F000:E8C8 


K9 


F000:4840 


WRITE_TTY 


F000:0014 Abs 


KBFUNL 


F000:48C4 


READ_LPEN 


F000:EAC9 


KBFUN_TBL 


F000:4B4F 


PRT.SCRN 


FOOOrEADD 


KBNMI_TBL 


F000:4C2B 


DSKT_IO 


F00O:OOlE Abs 


KBPADL 


F000:4C95 


DISK_RESET 


FOOO:EAAB 


KBPAD_TBL 


F000:4E3F 


NEC.OUTPUT 


F000:E987 


KB_INT 


F000:4E6C 


GET.PARM 


F000:E6F5 


KB.NOISE 


F000:4E7B 


SEEK 


F000:E82E 


KEYBOARD_IO 


F000:4FB0 


DSKT_INTE 


F000:3DA4 


KYBD_INT9 


F000:4FC6 


RESULTS 


F000:3D40 


KYBD_IO 


F000:51B6 


SYS_BOOT 


F00O:E831 


KYBD.RESET 


F000:530A 


COMMO_IO 


F000:1B49 


KYBD_TST 


F000:53DF 


COM_POWER 


F000:1F90 


LCDBUF.TST 


F000:547A 


PRT_IO 


F000:20EE 


LCDCTL_TST 


F000:5527 


TOD_PROC 


F000:2384 


LCDINIT 


F000:570C 


INITIALIZE_STATUS 


FOOO:EFFl 


LCD_CGA_TBL 


F000:5739 


SET_TOD 


FOOO:EFFF 


LCD_MONO_TBL 


F000:57BA 


RTC2_TST 


F000:F045 


Ml 


F000:5864 


TMR0_INT8 


F000:0020 Abs 


MIL 


F000:58F7 


SYS_SERVICES 


FOOOtOOlO Abs 


M4 


F000:5A99 


EXT_EVENT 


F000:F0E4 


M5 


F000:5D4F 


FILL 


FOOO:FOEC 


M6 


F000:6000 


ROM_BASIC 


F000:F0F4 


M7 


F000:E05B 


RESET 


F000:F841 


MEMORY_SIZE_DET 


F000:E05B 


START 


F000:E06B 


MEM_MSG 


F000:E06B 


MEM_MSG 


FOOO:OBDD 


MEM_SIZE_CHK 


F000:E072 


ROM_MSG 


F000:0A46 


MEM_TEST 


F000:E128 


Fl_ICON 


F000:29EA 


MODEM_CONFIG 


F000:E18F 


PAR_CHK 


F000:2B4B 


MODEM.INIT 


FOOOrElBF 


SYS_DSKT_ICON 


F000:2966 


MODEM_POWER_ON 


F000:E214 


DSKT.ICON 


F000:2DCB 


MODEM_TEST 


F000:E229 


BAD_DSKT_ICON 


F000:EFD5 


MONO_TBL 


FOOO:E257 


SYS_DESCR_TABLE 


F000:4E3F 


NEC.OUTPUT 


F000:E261 


DEF_SYS_PROF 


F000:3192 


NMI_FLIH 


F000:E269 


RTC_SIG_SAVE 


F000:E2C3 


NMI_INT 


F000:E26D 


PRT_TAB 


F000:EF62 


PARMS_TPI135 


FOOO:E275 


PRT_TAB_END 


F000:EF5A 


PARMS_TPI48 


F000:E275 


STR_CON 


F000:E18F 


PAR_CHK 


F000:E2C3 


NMI_INT 


F000:03DB 


POSTCNTL 


F000:E2C6 


CHAR_GEN_HI 


FOOO:002C 


POSTMAIN 


F000:E6C6 


DSP_BYTE 


F000:0043 


POST_LOOP 


F000:E6E0 


XLAT_NIB 


F000:EFD2 


PRINTER_IO 


F000:E6E7 


DSP_HEX 


F000:FF54 


PRINT_SCREEN 


F000:E6F2 


BOOTSTRAP 


F000:547A 


PRT_IO 


F000:E6F5 


KB_NOISE 


F000:4B4F 


PRT_SCRN 


F000:E729 


BAUD.TABLE 


F000:E26D 


PRT_TAB 


F000:E739 


RS232_IO 


F000:E275 


PRT_TAB_END 


F000:E73C 


ERR_BEEP 


F000:2857 


PTR_COM_PRESENCE 


F000:E75F 


BEEP 


FO00:38E2 


PUT_RTC_NMI 


F000:E762 


BEEP_SUB 


F000:E7C8 


PUT_RTC_REG 


F000:E79B 


DISABLE_NMI 


FOOOrFFFO 


P_0_R 


F000:E7A3 


ENABLE_NMI 


F000:44A7 


READ_AC_CURRENT 


F000:E7AA 


GET_RTC_REG 


F000:4381 


READ_CURSOR 


F000:E7C8 


PUT_RTC_REG 


F000:4554 


READ_DOT 


F00O:E7E6 


BAT_SAV_SETUP 


F000:48C4 


READJ.PEN 


F000:E82E 


KEYBOARD_IO 


F000:2B26 


RECV_S 


F000:E831 


KYBD_RESET 


F000:E05B 


RESET 


F000:E85C 


DDS 


F000:4FC6 


RESULTS 


F000:E864 


GET_VECTOR(a 


F000:3AC4 


RESUME 


F000:E87E 


K6 


FOOO:EB70 


RES_ERR_CHK 


F000:E886 


K7 


F000:6000 


ROM_BASIC 


F000:E88E 


K8 


FOOO:ODOA 


ROM_CHECKSUM 


F000:E8C8 


K9 


F000:0D6F 


ROM_LINK 


F000:E8E1 


KIO 


F000:E072 


ROM_MSG 


F000:E91B 


Kll 


F000:0D15 


ROM_SCAN 


F000:E955 


K12 


F0OO:E739 


RS232_I0 


F000:E95F 


K13 


F000:2D70 


RS232_TEST 


F000:E969 


K1.4 


F000:57BA 


RTC2.TST 


F000:E976 


K15 


F000:E269 


RTC_SIG_SAVE 


F000:E987 


KB_INT 


F000:446B 


SCROLL_DOWN 


F000:E98A 


SYS.SETUP 


F000:43E8 


SCROLL_UP 


FOOO:EAOC 


VECTOR_SETUP 


F000:4E7B 


SEEK 


F000:EA87 


K30 



ROM BIOS 2-5 



F000:2B1A 
F000:3174 
F000:439C 
F000:4332 
F000:42AB 
F000:415A 
F000:5739 
F000:E05B 
F000:0B40 
F000:E275 
F000:51B6 
F000:EB43 
F000:E257 
F000:E1BF 
F000:58F7 
F000:E98A 
F000:FEA5 
F000:FE6E 
F000-.5864 
F000:134C 
F000:5527 
F000:0D5A 
FOOO:EAOC 
F000:FEF3 
F000:F065 
F000:411D 
F000:2548 
F000.-F0A4 
F000:43C2 
F000:44ED 
F000:4521 
F000:4565 
F000:4840 
F000:E6E0 



SEND_C 

SEND_COM 

SET_COLOR 

SET_CPOS 

SET_CTYPE 

SET_MODE 

SET_TOD 

START 

STG.TST 

STR_CON 

SYS.BOOT 

SYS_CHK 

SYS_DESCR_TABLE 

SYS_DSKT_ICON 

SYS_SERVICES 

SYS_SETUP 

TIMER_INT 

TIME_OF_DAY 

TMR0_INT8 

TMR_TST 

TOD_PROC 

VALID.ROMCHK 

VECTOR_SETUP 

VECTOR_TABLE 

VIDEO_IO 

VIDEO_IO_l 

VIDEO_LINK 

VIDEO_PARMS 

VIDEO_STATE 

WRITE_AC_CURRENT 

WRITE_C_CURRENT 

WRITE_DOT 

WRITE_TTY 

XLAT_NIB 



FOOO:EAAB 
F000:EAC9 
FOOO.-EADD 
F000:EB43 
F000:EB70 
F000:EC59 
F000:EC5C 
F000:ED5F 
F0O0:EF57 
F000:EF5A 
F000:EF62 
FOOO:EFC7 
F000:EFD2 
F000:EFD5 
F000:EFE3 
FOOO:EFFl 
FOOO:EFFF 
F000.-F045 
F000:FO65 
F000:F0A4 
F000:F0E4 
FOOO:FOEC 
F000:F0F4 
F000:F841 
F000:F84D 
F000:F859 
F000:FA6E 
F000:FE6E 
F000:FEA5 
F000:FEF3 
F000:FF23 
F000-.FF53 
F000:FF54 
FOOO:FFFO 



KBPAD.TBL 

KBFUN_TBL 

KBNMI_TBL 

SYS_CHK 

RES_ERR_CHK 

DISKETTE_IO 

E_MSG 

ICON_PR 

DSKT.INT 

PARMS_TPI48 

PARMS.TPI135 

DSKT_BASE 

PRINTER_IO 

MONO_TBL 

CG/L.TBL 

LCD_CGA_TBL 

LCD_MONO_TBL 

Ml 

VIDEO.IO 

VIDEO_PARMS 

M5 

M6 

M7 

MEMORY_SIZE_DET 

EQUIPMENT 

CASSETTE_IO 

CHAR_GEN_LO 

TIME_OF_DAY 

TIMER_INT 

VECTOR_TABLE 

Dll 

DUMMY_RETURN 

PRINT_SCREEN 

P_0_R 



Program entry point at FOOO:E05B 



2-6 ROM BIOS 



Common Equates and Data Areas 



ITLE COMMON EQUATES/ DATA AREAS 

INCLUDE SROMEQUS.INC 
DATE LAST MODIFIED: 09/13/1985 

******************************************************* 
GLOBAL EQUATES FOR I/O PORTS 



*************************************** 



:****•***•***•** 



Common Equates 



0000 



= 0020 
= 0020 
= OOOB 
= OOOA 

= 0021 



DMA CONTROLLER PORT 00 - 

DMA EQU ; DMA CONTROLLER BASE ADDRESS 

INTERRUPT CONTROLLER - 20,21H 

INTERRUPT CONTROLLER PORT 1 
NON SPECIFIC END OF INTERRUPT 
READ IN SERV REG AT INTAOO 
READ INT REQ REG AT INTAOO 

21H ; IRPT CONTROLLER MASK REG 



INTAOO 


EQU 


20H 


EOI 


EQU 


20H 


READ_ISR 


EQU 


OBH 


READ_IRR 


EQU 


OAH 



INTA01 



EQU 



0040 
0042 

0043 
0080 
0030 



SYSTEM TIMERS 



- 40,42, 43H 



TIMERO 
TIMER2 



EQU 
EQU 



TIMER_CTL EQU 
TIMER2_CTL EQU 
TLATCH EQU 



40H 
42H 

43H 
80H 
30H 



TIMER COUNTER PORT ADDR 
TIMER 2 COUNTER PORT ADDR 

TIMER 0,2 CONTROL PORT ADDR 
ACCESS TIMER2 CONTROLS 
LATCH TMR VAL R/W LEAST, 1ST 



0060 



KEYBOARD SCAN CODE P0RT-60H 

KB_DATA EQU 60H ; MAIN KEYBOARD SCAN CODE PORT 



0061 
0061 
0080 
0040 
0020 
0008 
0004 
0002 
0001 



NMI CONTROL PORT 



- 61H 



NMI_CNTL 


EQU 


61H 


KB.CTL 


EQU 


61H 


CLR_KEYBD 


EQU 


80H 


DIS_COPROC 


EQU 


40H 


DIS_IOCHK 


EQU 


20H 


DIS_ALARM 


EQU 


08H 


EN_SPKR 


EQU 


04H 


SPKR_DATA 


EQU 


02H 


TMR2_GATE 


EQU 


01H 



NMI CONTROL PORT 
PORT 60H CONTROL REGISTER 
CLEAR KEYBOARD SIGNAL 
DISABLE COPROCESSOR NMI 
DISABLE I/O CHANNEL CHECK NMI 
DISABLE RTC ALARM NMI 
ENABLE SPEAKER (NOT AN NMI) 
SPEAKER DATA LINE (NOT AN NMI) 
GATE TIMER 2 (NOT AN NMI) 



ROM BIOS 2-7 



NMI SOURCE REG 



- 62H 



0062 


NMI_SRC 


EQU 


62H 


NMI SOURCE PORT ADDRESS 


0080 


DSKT_NMI 


EQU 


80H 


DISKETTE NMI 


0040 


IOCHK_NMI 


EQU 


40H 


I/O CHANNEL CHECK NMI 


0020 


TIMER2.SN 


EQU 


20H 


TMR 2 SNE (NOT AN NMI SOURCE) 


0010 


KBCLR_NMI 


EQU 


10H 


KYBD PORT 60 AVAILABLE NMI 


0008 


SYS_SUSP_NMI 


EQU 


08H 


SYSTEM SUSPEND NMI 


0004 


RTC_ALRM_NMI 


EQU 


04H 


REAL TIME CLOCK ALARM NMI 


0001 


KBDATA_NMI 


EQU 


01H 


KEYBOARD DATA READY NMI 




SYSTEM CLOCK CONTROL 


REGISTER 


- 72H 


0072 


CLOCK_CTL 


EQU 


72H 


SLEEP CLOCK CONTROL REGISTER 


0020 


6L0BAL_NMI 


EQU 


20H 


GLOBAL NMI ENABLE 


0004 


DISABLE_SLEEP 


EQU 


04H 


DISABLE SLEEP CLOCK BIT 


0003 


CL0CK_RUN 


EQU 


03H 


SLEEP CLOCK RUN STATE 


0000 


CLOCK_STOP 


EQU 





CLOCK STOP VALUE 




LCD CONTROL 


L E R I 


N D E X 


- 74H 


0074 


LCD_INDX 


EQU 


74H 


INDEX REG FOR ACCESING LCDC 
REGS 


0000 


LCD_FUNCT 


EQU 


00 


LCDC FUNCT CONTROL REGISTER 


0001 


LCD_WRAP 


EQU 


01 


LCDC DIAG CONTROL REGISTER 



0075 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



LCD CONTROLLER DATA 
LCD_DATA EQU 75H 



75H 



LCD_2PAN 

LCD_CGA 

LCD_NORM 

LCD_ENAB 

LCD.FONT 

SYNC_ENABLE 

PANEL_ENABLE 

LCD_SENSP 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



01H 
02H 
04H 
08H 
10H 
20H 
40H 
80H 



DATA REG FOR WRITING TO LCDC 
REGS 

ON = TWO PANEL LCD 

OFF = ONE PANEL LCD 

ON = LCD EMULATING CGA 

OFF = LCD EMULATING MONO 

ON = LCD IN NORMAL MODE 

OFF = LCD IN DIAGNOSTIC MODE 

ON = LCD ADDR DECODE ENABLED 

OFF = LCD DISABLED 

ON = ACCESS LCD FONT STORAGE 

OFF = ACCESS REGEN BUFFER 

ON = ENABLE SYNCS 

OFF = DISABLE SYNCS 

ON = LCD PANEL POWER ENABLED 

OFF = LCD PANEL PWR DISABLE 

ON = TWO PANEL LCD SENSED BY 

HRDWARE 



= 0077 
= 0080 

= 0040 

= 0020 

= 0010 

= 0008 

= 0002 



DISKETTE CONTROL PORT 



DSKT_CNTL 
DSKT_NMI 



FDC_PWR 
DSKT_DEGATE 



EQU 77H ; DSKT POWER CONTROL REGISTER 

EQU 80H ; ENABLE DSKT NMI POWER ON REQ 

EQU 40H ; DSKT CONTROLLER POWER ENABLE 

EQU 20H ; DSKT DRIVE DEGATE FROM CNTLR 



RD_CNTL EQU 10H ; READ CONTROLLER REGISTER 
THIS BIT OFF ALLOWS READING THE DRIVE TRK POSTN FROM DSKT_CNTL REG 

DRO_TRK_SEL EQU 08H ; READ DRIVE TRACK POSITION 
THIS BIT OFF ALLOWS READING THE DRIVE 1 TRACK POSITION 



CNTL.SEL 



EQU 



02H ; BIT MUST ALWAYS BE ON FOR 
; ANY WRITE TO THIS I/O PORT 



2-8 ROM BIOS 



PORTABLE PRINTER PORTS 



0078 

0079 
0080 
0008 

007A 
0040 
0008 
0004 
0001 



CPRT_DATA EQU 78H ; PORTABLE PTR XMIT PORT ADDR 

CPRT_STAT EQU 79H ; PORTABLE PTR STAT PORT ADDR 

NOT_BUSY EQU 80H ; NOT BUSY BIT IN STATUS PORT 

NOT_ERROR EQU 08H ; NOT ERROR BIT IN STATUS PORT 

CPRT_MODE EQU 7AH ; PORTABLE PTR MODE PORT ADDR 

ACK EQU 40H ; ACKNOWLEDGE BIT (NOT USED) 

SELECT EQU 08H ; SLCT BIT IN MD PRT (NOT USED) 

NO_INIT EQU 04H ; INITIALIZE BIT IN MODE PORT 

STROBE EQU 01H ; STRB BIT IN MD PRT (NOT USED) 



KEYBOARD & FEATURE CNTL-7CH 



007C 
0080 
0040 
0020 
0004 
0002 
0001 



KYBD_CNTL 


EQU 


7CH 


EN_KYBD_NMI 


EQU 


80H 


KYBD_ATTACH 


EQU 


40H 


SET_KYBD_DIA6 


EQU 


20H 


ACT_RS232 


EQU 


04H 


ACT_MODEM 


EQU 


02H 


SET_RS232_PRIM 


EQU 


01H 



KYBD AND FEAT CONTROL ADDR 
ENABLE KEYBOARD NMI 
KEYBOARD ATTACHED SENSE 
ACT KYBD DIAGNOSTIC MODE 
ACT RS232 FEATURE POWER 
ACTIVATE MODEM FEATURE POWER 
SET RS232 FEAT TO PRI ADDR. 



POWER INTERFACE REG 



007F 
0080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 



PWR_STAT 


EQU 


7FH 


LOW_BAT 


EQU 


80H 


EXT_PWR 


EQU 


40H 


SYS_POR 


EQU 


20H 


PON_ALRM 


EQU 


10H 


HDWR_RESET 


EQU 


08H 


EN_SUS_NMI 


EQU 


04H 


REQ_POFF 


EQU 


02H 


EN_PON_ALRM 


EQU 


01H 



POWER INTERFACE PORT ADDRESS 
LOW BATTERY STATUS FLAG 
EXTERNAL POWER SUPPLIED 
SYSTEM POR REQSTD (ALT CTL R) 
POWER ACTIVATED BY RTC ALARM 
CAUSE POWER-ON-RESET 
ENABLE SYSTEM SUSPEND NMI 
REQUEST SYSTEM POWER OFF 
ENABLE POWER ON BY RTC ALARM 



DMA PAGE REGISTERS 



0083 
0081 
0082 



DMA_PAGE1 
DMA_PAGE2 
DMA_PAGE3 



EQU 83H 
EQU 81H 
EQU 82H 



DMA PAGE REGISTER CHANNEL 1 
DMA PAGE REGISTER CHNL 2 (DSKT) 
DMA PAGE REGISTER CHANNEL 3 



MANUFACTURING PORTS 



00A1 
00A2 
00A3 
0080 
0001 



MFG.CHKPT 


EQU 


0A1H 


MFG_ERR_HI 


EQU 


0A2H 


MFG_ERR_LO 


EQU 


0A3H 


MEM_CTL 


EQU 


80H 


MEM_SUB_MODE 


EQU 


01H 



MFG CHECKPOINT PORT 
MFG ERROR CODE PORT HIGH 
MFG ERROR CODE PORT LOW 
MEMORY DECODE CONTROL PORT 
BIT SET IN MEM_CTL FOR SPECIAL 
MEM SUBSTITUTE OF LCD DISPLAY 
RAM FOR MAIN MEM FOR MFG MODE 



I/O C H K 



7 CONTROL- AOH 



OOAO 
0080 
0007 



IONMI_CNTL 


EQU 


OAOH 


EN_IOCHK 


EQU 


80H 


INTJ.EVEL 


EQU 


07H 



I/O CHAN CHK NMI ENAB/DISAB 
ENABLE 8087 AND 10 CHECK NMI 
MASK FOR CURRENT IRPT LVL SNE 



ROM BIOS 2-9 



DISPLAY ADAPTER CONTROL REGS 



03D8 
03 B8 



CGA_CNTL 
MONO_CNTL 



EQU 
EQU 



03D8H ; COLOR GRAPHICS CONTROL PORT 
03B8H ; MONO DISPLAY CONTROL PORT 



FLOPPY DISKETTE CONTROL REGS 



DRIVE MOTOR, SELECT CONTROL PORT 



= 03F2 

= 0020 
= 0010 
= 0008 
= 0004 



0001 
0000 



= 03F4 

= 0080 
= 0040 
= 0010 



DRIVE_CNTL 

DR1_M0T0R 
DRO_MOTOR 
FDC_DMA_ENAB 
FDC_RUN 



EQU 

EQU 
EQU 
EQU 
EQU 



03F2H 

20H 
10H 
08H 
04H 



FLOPPY DISKETTE DRIVE CONTROL 
*****WRITE ONLY REGISTER***** 
DRIVE 1 MOTOR ENABLE 
DRIVE MOTOR ENABLE 
ENABLE FDC DMA AND INTERRUPTS 
DISKETTE CONTROLLER RUN BIT 



IF THE ABOVE BIT IS OFF THE DISKETTE CONTROLLER IS RESET 



DR1_SELECT 
DRO_SELECT 



EQU 
EQU 



01H 
OOH 



DRIVE 1 SELECT 
DRIVE SELECT 



DISKETTE CONTROLLER MAIN STATUS REGISTER 



FDC_STATUS 

REQ_MASTER 
DATA_READY 
FDC_BUSY 



EQU 

EQU 
EQU 
EQU 



03F4H 

080H 
040H 
010H 



DSKT CONTROLLER MASTER STATUS 
*** READ ONLY REGISTER ***** 
REQUEST FOR MASTER 
DATA RDY TO BE RD FROM CNTLR 
CONTROLLER IS BUSY 



03F5 



DISKETTE CONTROLLER DATA INPUT/OUTPUT REGISTER 

FDC_DATA EQU 03F5H ; DISKETTE CONTROLLER DATA PORT 



03F7 

0080 
0040 
0020 
0010 
0008 
0001 



DRIVE MOTOR, SELECT TRACK 


SENSE PORT 


DRIVE_SENSE 


EQU 


03F7H 


CHG_LINE 


EQU 


080H 


DRO_SEL_SENSE 


EQU 


040H 


DR1_SEL_SENSE 


EQU 


020H 


DRO_MOT_SENSE 


EQU 


010H 


DR1_M0T_SENSE 


EQU 


008H 


TRACK0_SENSE 


EQU 


001H 



DSKT DRIVE CONTROL LINE SENSE 
***** READ ONLY REGISTER ***** 
MEDIA CHNG LINE ACTIVE SENSE 
DRIVE SELECTED SENSE BACK 
DRIVE 1 SELECTED SENSE BACK 
DRIVE MOTOR ON SENSE BACK 
DRIVE 1 MOTOR ON SENSE BACK 
TRACK IND FOR SLCTD DRIVE 



COMMANDS SENT TO DISKETTE CONTROLLER BY BIOS 



0008 
0003 
0007 
OOOF 
00E6 
00C5 
004D 



0046 
004A 
0042 



READ_INT_STATUS EQU 08H 

SPECIFY 

RECALIBRATE 

SEEK_CMD 

READ_CMND 

WRITE_CMND 

FORMAT_CMND 



DMA SETUP COMMANDS FOR DISKETTE 



EQU 


03H 


EQU 


07H 


EQU 


OFH 


EQU 


0E6H 


EQU 


0C5H 


EQU 


04DH 



DMA_READ 

DMA_WRITE 

DMA_VERIFY 



EQU 46H 
EQU 4AH 
EQU 42H 



READ INTERRUPT STATUS COMMAND 
SPECIFY COMMAND 
RECALIBRATE DRIVE COMMAND 
SEEK DRIVE COMMAND 
READ COMMAND 
WRITE COMMAND 
FORMAT COMMAND 



SETUP DMA FOR DISKETTE READ 
SETUP DMA FOR DISKETTE WRITE 
SETUP DMA FOR NO XFER (VRFY) 



2-10 ROM BIOS 



= 0070 



GLOBAL EQUATES FOR REAL TIME CLOCK 



RTC REGISTER INDEX PORT 

RTCR_PORT EQU 

RTC REGISTER DATA PORT 



070H 



0071 


RTCD_PORT 


EQU 


071H 




— RTC TIME, DATE, AND 


ALARM 


REGIST 


0000 


RTC_TSEC 


EQU 





0001 


RTC_ASEC 


EQU 


1 


0002 


RTC_TMIN 


EQU 


2 


0003 


RTC_AMIN 


EQU 


3 


0004 


RTCTHRS 


EQU 


4 


0005 


RTCAHRS 


EQU 


5 


0006 


RTC_WDAY 


EQU 


6 


0007 


RTC_MDAY 


EQU 


7 


0008 


RTC_MON 


EQU 


8 


0009 


RTC_YEAR 


EQU 


9 




--- RTC STATUS REGISTER 




OOOA 


RTC_UP_STAT 


EQU 


10 


0080 


RTC_UIP 


EQU 


080H 




--- RTC INTERRUPT AND 


MODE SET REGI 


OOOB 


RTC_MODE 


EQU 


11 


0080 


SET_CLOCK 


EQU 


080H 


0040 


PIE_ENABLE 


EQU 


040H 


0020 


AIE_ENABLE 


EQU 


020H 


0010 


UIE_ENABLE 


EQU 


010H 


0004 


SET.BIN 


EQU 


004H 


0002 


SET_24HR 


EQU 


002H 


0001 


SET_DAY LIGHT 


EQU 


001H 




— RTC INTERRUPT STATUS REGISTER 


OOOC 


RTC_INT_STAT 


EQU 


12 


0080 


RTC_IRQ 


EQU 


080H 


0040 


PI_INT 


EQU 


040H 


0020 


AL_INT 


EQU 


020H 


0010 


UE_INT 


EQU 


010H 




— RTC CONDITION STATUS REGISTER 


OOOD 


RTC_COND_STAT 


EQU 


13 


0080 


VALID_TIME 


EQU 


080H 




— RTC DIAG_STATUS FLAGS — 




OOOE 


RTC_DIAG_STAT 


EQU 


14 


0080 


RTC_TIME_BAD 


EQU 


080H 


0040 


BAD_RTC_SIG 


EQU 


040H 


0020 


BAD_STOR_CKSUM 


EQU 


020H 


0010 


LCD_ALT_FAILED 


EQU 


010H 


0008 


LCD_CHANGE 


EQU 


08H 


0004 


RTC_FAILED 


EQU 


04H 


0002 


LCD_NOT_ACTIVE 


EQU 


02H 


0001 


DSKT_ACTIVE 


EQU 


01H 



REAL TIME CLOCK IX REG PORT 



REAL TIME CLK DATA REG PORT 



TIME SECONDS REG ADDR 
ALARM SECONDS REG ADDR 
TIME MINUTES REG ADDR 
ALARM MINUTES REG ADDR 
TIME HOURS REG ADDR 
ALARM HOURS REG ADDR 
DAY OF WEEK (SUNDAY = 1) 
DAY OF MONTH 
MONTH 
YEAR 



CLOCK UPDATE STATUS REG ADDR 
UPDATE IN PROGRESS BIT 



MODE REG ADDR 

SET CLOCK BIT 

PERIODIC INTERRUPT ENABLE 

ALARM INTERRUPT ENABLE 

UPDATE ENDED IRPT ENABLE 

SET BINARY MODE 

SET 24 HOUR MODE 

SET DAYLIGHT SAVINGS MODE 



INTERRUPT STATUS REG ADDR 
INTERRUPT REQUEST SET 
PERIODIC REQUEST 
ALARM REQUEST 
UPDATE ENDED REQUEST 



RTC CONDITION STATUS 
RTC HAS NOT LOST POWER 



DIAG STATUS BYTE IN RTC RAM 
STANDBY POWER LOST FLAG 
REAL TIME CLK SIGNATURE BAD 
BASE 128K STG CHECKSUM BAD 
LCD ALT DISPLAY MODE FAILED 
LCD CONFIGURATION CHANGED 
REAL TIME CLK DID NOT UPDATE 
OR VALUES OUT OF LIMITS 
LCD NOT ACT WHEN SUSPENDED 
DSKT WAS ACT AT SUSPEND TIME 



ROM BIOS 2-11 



— - BEGINNING OF RTC CMOS DATA AREA 
REGISTERS FROM HERE TO RTC_MEM_END ARE KEPT CHECKSUMMED 



OOOF 



RTC_MEM_START EQU 



15 



START OF RTC REGISTER STACK 



OOIO 
0011 
0000 
0001 
0002 
0003 



0013 
0014 



— DISKETTE TYPE IDENTIFIER — UPPER 4 BITS = DRV 0, LOWER = DRV 1 

; DSKT CONFIG INFO (0 & 1) 
; DSKT CONFIG INFO (2 & 3) 

; 48 TRACK PER INCH DRIVE 
; 96 TRACK PER INCH DRIVE 
; 135 TRACK PER INCH DRIVE 

SYSTEM EQUIPMENT WORD (COPY OF EQUIPMENT_WORD IN DATA SEGMENT) 



RTC_DSKT_CON 


EQU 


16 


RTC_DSKT_C0N2 


EQU 


17 


NO_DRIVE 


EQU 





TPI_48 


EQU 


1 


TPI_96 


EQU 


2 


TPI_135 


EQU 


3 



RTC_EQUIP_LO 
RTC_EQUIP_HI 



EQU 
EQU 



19 
20 



; SYSTEM EQUIPMENT FLAG (LOW) 
; SYSTEM EQUIPMENT FLAG (HI) 



- 15-14 - 13 - 12 - 11-9 



_ 7-6 - 5-4 - 3-1 



I 



I I I 

I | IPL DSKT INSTALLED 
I — UNUSED 
— INITIAL VIDEO MODE 
NUMBER OF DISKETTE DRIVES 
— UNUSED 
— NUMBER OF COM DEVICES 
JOYSTICK ATTACHED 
-- INTERNAL MODEM INSTALLED 
NUMBER OF PRINTERS ATTACHED 



SYSTEM MEMORY SIZE 



0015 
0016 



RTC_MEMS_LO 
RTC_MEMS_HI 



EQU 
EQU 



21 
22 



SYSTEM PROFILE INFORMATION 
SYS_PR0F1 

15 | 14 | 13-12 | 11-10 | 9 | 8 | 



10 MEMORY SIZE LO BYTE (POST) 
10 MEMORY SIZE HI BYTE (POST) 



SYS_PR0F2 



|7-0 



— UNUSED 



— RS232/PARL AVAIL ON BATTERY 
— MODEM AVAILABLE ON BATTERY 
— LCD HIGH INTENSITY MAPPING 
INITIAL VIDEO MODE 
-- ENABLE LOW BATTERY WARNING 
— SYSTEM WARM START SELECTED 



= 0017 
= 0080 
= 0040 
= 0002 
= 0001 

= 0018 
= 0019 

= 001B 



RTC_SYS_PR0F1 


EQU 


23 


SYSTEM PROFILE BYTE 1 


RESUME_ENABLE 


EQU 


80H 


SYSTEM RESUME ENABLE FLAG 


LOWBAT.ENABLE 


EQU 


40H 


LOW BAT WARNING ENABLE FLAG 


MODEM_BATT 


EQU 


02 


MODEM AVAILABLE ON BATTERY 


RS232_BATT 


EQU 


01 


RS232/PARALLEL AVAILABLE ON 
BATTERY 


RTC_SYS_PR0F2 


EQU 


24 


SYSTEM PROFILE BYTE 2 


RTC_LCD_INACT 


EQU 


25 


INACT TIME TO DISPLAY BLANK 
(2 BYTES) 


RTC_SYS_INACT 


EQU 


27 


INACT TIME TO SYS POWER OFF 
(2 BYTES) 



2-12 ROM BIOS 



- MODEM PROFILE INFORMATION 
MOD_PROFl 

15-14 | 13 112-10 |9-8 | 



M0D_PR0F2 

17-0 | 

I 

— UNUSED 



— DATA RATE 
- PARITY / FRAMING 

= MANUAL ANSWER, 1 = AUTO ANSWER 

RESERVED 



001D 


RTC_M0D_PR0F1 


EQU 


29 


MODEM SETUP PROFILE BYTE 1 


001E 


RTC_M0D_PR0F2 


EQU 


30 


MODEM SETUP PROFILE BYTE 2 




— FEATURE DEVICE CONFIGURATION INFORMATION 


001F 


RTC_FEAT_CON 


EQU 


31 


FEATURE CONFIGURATION REG @ 


0080 


SERPLL_INST 


EQU 


80H 


SERIAL PARAL CARD INSTALLED 


0040 


INTMOD_INST 


EQU 


40H 


INTERNAL MODEM INSTALLED 


0020 


M0D12_INST 


EQU 


20H 


1200BPS MODEM INSTALLED 


0010 


PRI_INST 


EQU 


10H 


SER CARD INSTALLED AS PMRY 


0008 


CMPT_PP_OK 


EQU 


08H 


COMPACT PTR PORT PASSED TEST 




— LCD/CRT ADAPTER CONFIGURATION INFORMATION 


0020 


RTC_DSP_CON 


EQU 


32 


DISPLAY CONFIGURATION REG 


0080 


DSP_LCD_PRES 


EQU 


80H 


ON = LCD PANEL IS PRESENT 


0010 


DSP_VIDEO_ROM 


EQU 


10H 


ON = FEAT VIDEO ROM SENSED 


0008 


DSP_MONO 


EQU 


08H 


ON = MONOCHROME ADAPT PRESENT 


0004 


DSP_CGA 


EQU 


04H 


ON = CGA ADAPTER PRESENT 


0002 


DSP_MLCD 


EQU 


02H 


ON = LCD CONFIGED AS MONO ADA 


0001 


DSP.CLCD 


EQU 


01H 


ON = LCD CONFIGED AS CGA ADA 



= 0021 



RTC_SYS_STAT EQU 33 ; SYSTEM POWER ON STATUS 
FOR EQUATES SEE DEFINITION OF PWR_STAT REGISTER 7FH 



LCD/CRT ADAPTER STATUS INFO 



0022 
0080 


RTC_DSP_STAT 
DIAG_FORCE_SUS 


EQU 
EQU 


34 
80H 


0004 
0002 
0001 


MONO_BAD 

CGA.BAD 

LCD.BAD 


EQU 
EQU 
EQU 


04H 
02H 
01H 




; — BASE 128K STORAGE 


CHECKSUM 




0023 
0024 


RTC_BMEM_CKSL 
RTC_BMEM_CKSH 


EQU 
EQU 


35 
36 



0024 



002E 
0032 



DISPLAY STATUS REGISTER 
USED TO FORCE RESUME W/0 LCD 

(DSP_MLCD & DSP_CLCD - 0) 
MONO ADAPT PRESENT, BUT BAD 
CGA PRESENT, BUT BAD 
LCD WAS CONFIG, BUT BAD 



LOW BYTE OF BASE STGE CHECKSUM 
HI BYTE OF BASE STG CHECKSUM 



RTC_MEM_END EQU 36 ; END OF RTC 
— RTC MEMORY GOOD SIGNATURE AREA (MUST BE "RTCG" FOR VALID RTC 

RTC_SIGNATURE EQU 46 ; 46-49 VAL RTC SIGNATURE AREA 
RTC_CENTURY EQU 50 ; RTC CENTURY BYTE SAVE AREA 



ROM BIOS 2-13 



******************************************************** 

GLOBAL EQUATES FOR BIOS/POST 
******************************************************** 



SPECIAL KEY EQUATES 



0045 
0046 
0038 
001D 
003A 
002A 
0036 
0052 
0053 
OOOF 
0054 
00D4 
0052 
003B 
OOEO 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0009 
OOOA 
OOOB 
OOOC 

OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 

001C 
001D 
001E 
001F 
0020 
007F 



NUM_KEY 


EQU 


69 


SCR0LL_KEY 


EQU 


70 


ALT_KEY 


EQU 


56 


CTL_KEY 


EQU 


29 


CAPS_KEY 


EQU 


58 


LEFT_KEY 


EQU 


42 


RIGHT_KEY 


EQU 


54 


INS_KEY 


EQU 


82 


DEL_KEY 


EQU 


83 


TAB_KEY 


EQU 


15 


SYSREQ_MAKE 


EQU 


054H 


SYSREQ_BREAK 


EQU 


0D4H 


FN_KEY 


EQU 


052H 


F1_KEY 


EQU 


59 


HIDN_CODE_EO 


EQU 


OEOH 



PCI SCAN CODE FOR NUM LOCK 

PCI SCAN CODE FOR SCL LK KEY 

PCI SCAN CODE FOR ALT SFT KEY 

PCI SCAN CODE FOR CNTL KEY 

PCI SCAN CODE FOR SHIFT LOCK 

PCI SCAN CODE FOR LEFT SHIFT 

PCI SCAN CODE FOR RGHT SHIFT 

PCI SCAN CODE FOR INSERT KEY 

PCI SCAN CODE FOR DELETE KEY 

PCI SCAN CODE FOR TAB KEY 

PCI SCAN CODE SYS_REQ (MAKE) 

PCI SCAN CODE SYS_REQ (BRK) 

NMI SCAN CODE FOR FN KEY 

PCI SCAN CODE FOR Fl KEY 
HIDDEN CODE SEQUENCE ID 



KEYBOARD EQUATES USED IN KEYBOARD SUPPORT TABLES | 



CTL + KEYPAD 


KEYS TO 


GIVE 


(EXCEPT NUL) 






NUL 


EQU 


000 


SOH 


EQU 


001 


STX 


EQU 


002 


ETX 


EQU 


003 


EOT 


EQU 


004 


ENQ 


EQU 


005 


ACK006 


EQU 


006 


BEL 


EQU 


007 


HT 


EQU 


009 


LF 


EQU 


010 


VT 


EQU 


Oil 


FF 


EQU 


012 


CR 


EQU 


013 


SO 


EQU 


014 


SI015 


EQU 


015 


DLE 


EQU 


016 


DC1 


EQU 


017 


DC2 


EQU 


018 


DC3 


EQU 


019 


DC4 


EQU 


020 


NAK 


EQU 


021 


SYN 


EQU 


022 


ETB 


EQU 


023 


CAN 


EQU 


024 


EM 


EQU 


025 


SUB 


EQU 


026 


ESC 


EQU 


027 


FS 


EQU 


028 


GS 


EQU 


029 


RS 


EQU 


030 


US 


EQU 


031 


ENTER 


EQU 


032 


DEL 


EQU 


127 



2-14 ROM BIOS 



KEYPAD BASE PCI SCAN CODES 



0047 
0048 
0049 
004A 
004B 
004D 
004E 
004F 
0050 
0051 



H0ME_KEY 

CUR_UP 

PGUP 

KYPD_MINUS 

CUR_LFT 

CUR_RHT 

KYPD_PLUS 

END_KEY 

CUR_DN 

PGDN 

INS_KEY 

DEL_KEY 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



71 
72 
73 
74 
75 
77 
78 
79 
80 
81 
82 
83 



-- CTL + BASE KEYPAD KEYS EXTENDED ASCII CODE 



0077 
0084 
0073 
0074 
0075 
0076 



CTL_H0ME 

CTL_PGUP 

CTL_CUR_LFT 

CTL_CUR_RHT 

CTL_END 

CTL_PGDN 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



119 
132 
115 
116 
117 
118 



— ASCII CODES 



001B 
0008 
0009 
OOOD 
0027 
0020 
0000 



0005 
0010 
0013 
0014 
0015 
0016 
0017 
0019 
001A 



ESC 

BKSPC 

TAB 

ENTER 

APOSTR 

SPACE 

PSEUDO 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1BH 
08H 
09H 
ODH 
27H 
20H 
OOH 



; BUILD PSEUDO SCAN CODES 



BIOS I/O ROUTINE INTERRUPT ASSIGNMENTS 



PRTSC_FN 

VIDEO_FN 

DSKT_FN 

RS232_FN 

SYSSERV_FN 

KEYBD_FN 

PRINTER_FN 

BOOT_FN 

TOD_FN 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



05 

10H 

13H 

14H 

15H 

16H 

17H 

19H 

1AH 



PRINT SCREEN FUNCTION CALL 

VIDEO I/O 

DISKETTE 

COMMUNICATIONS 

SYSTEM SERVICES 

KEYBOARD 

PRINTER 

SYSTEM BOOT STRAP 

TIME OF DAY 



EQUATES FOR ERRORS IN RETURN CODE OF POST ROUTINES 



0020 
0010 
0008 
0004 



FATAL.ERROR 

NON_FATAL_ERR 

POST_MSG 

RE_DISPATCH 

NON_FATAL_NW 

DISPLAY_ERR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



80H 
40H 
20H 
10H 
08H 
04H 



FATAL ERROR (POST.STATUS) 
NON FATAL ERR (POST.STATUS) 
ERR MSG POINTED TO BY ES:DX 
RE-DSPTCH LST RTN AFTER STAT 
NON FATAL BUT NOT WARMSTART 
ERROR COMES FROM DSPLY TEST 



GENERAL DELAY LOOP COUNTS USING LOOP $ WITH INTERRUPTS DISABLED 



0102 
006B 



MS_DELAY 
DELAY_415US 



EQU 
EQU 



258 
107 



; 1 MILLISECOND DELAY COUNT 
; 415 USEC DLY COUNT FOR COMMO 



ROM BIOS 2-15 



INCLUDE SROMDATA.INC 



Processor Interrupt Vector Area 





• 8088 INTERRUPT 


LOCATIONS 




0000 


ABSO SEGMENT AT 




0000 


STGLLOCO 


LABEL 


BYTE 


0008 


ORG 


2*4 




0008 


NMI_PTR 


LABEL 


WORD 


0014 


ORG 


5*4 




0014 


INT5_PTR 


LABEL 


WORD ; 


0020 


ORG 


8*4 




0020 


INT_ADDR 


LABEL 


WORD 


0020 


INT_PTR 


LABEL 


DWORD 


0024 


ORG 


9*4 




0024 


INT9_PTR 


LABEL 


WORD ; 


0040 


ORG 


10H*4 




0040 


VIDE0_INT 


LABEL 


WORD ; 


0070 


ORG 


1CH*4 




0070 


ONECH 


LABEL WORD 




0074 


ORG 


1DH*4 




0074 


PARM_PTR 


LABEL 


DWORD ; 


0060 


ORG 


18H*4 




0060 


BASIC_PTR 


LABEL 


WORD ; 


0078 


ORG 


01EH*4 




0078 


DISK_POINTER LABEL 


DWORD 


007C 


ORG 


01FH*4 




007C 


EXT_PTR 


LABEL 


DWORD ; 


0110 


ORG 


044H*4 




0110 


CSET.PTR 


LABEL 


DWORD ; 


0128 


ORG 


04AH*4 




0128 


RTCA_PTR 


LABEL 


DWORD ; 


01B0 


ORG 


06CH*4 




01B0 


RESUME_PTR 


LABEL 


DWORD ; 


0400 


ORG 


400H 




0400 


DATA_AREA 


LABEL 


BYTE ; 


0400 


DATA_WORD 


LABEL 


WORD 


0600 


ORG 


0600H 




0600 


MFG_TEST_RTN LABEL 


FAR 


7C00 


ORG 


7C00H 




7C00 


BOOT_LOCN 


LABEL 


FAR 


7C00 


ABSO ENDS 





PRT SCREEN INTERRUPT VECTOR 

KEYBOARD INTERRUPT VECTOR 
VIDEO I/O INTERRUPT VECTOR 
USER TIMER VECTOR 
POINTER TO VIDEO PARMS 
ENTRY FOR RESIDENT BASIC 

LOCATION OF POINTER 
POINTER TO EXTENSION 

PTR TO LOWER 128 CHAR SET 

PTR TO USER RTC ALARM VECTOR 

PTR TO PROGRAM RESUME VECTOR 

ABS LOCATION OF DATA SEGMENT 



POST and Bootstrap Temporary Stack 





7F [ 


; STACK -- USED DURING INITIALIZATION ONLY : 


0000 
0000 


STACK SEGMENT AT 30H 
DW 127 DUP(?) 
???? 

] 


OOFE 
OOFE 




T0P_0F_STACK LABEL WORD 
STACK ENDS 



2-16 ROM BIOS 



BIOS Data Areas 



0000 



ROM BIOS DATA AREAS 



DATA SEGMENT AT 40H 



0000 04 [ RS232_BASE DW 4 DUP(?) ; ADDR RS232 ADA (C0M1-C0M4) 
???? 



0008 04 [ PRINTER.BASE DW 4 DUP(?) ; ADDR PRINTERS (LPT1-LPT3) 

???? 

] 



0010 ???? 



EQUIPMENT WORD 
EQUIP_FLAG DW 

I 15-14 | 13 | 12 | 11-9 | 8 



; INSTALLED HARDWARE 
I 5-4 |3-1|0| 



I I I I 

| | | IPL DSKT INSTALLED 
| | — UNUSED 
| -- INITIAL VIDEO MODE 
— NUMBER OF DISKETTE DRIVES 
-- UNUSED 
— NUMBER OF COM DEVICES 
— JOYSTICK ATTACHED 
-- INTERNAL MODEM INSTALLED 
NUMBER OF PRINTERS ATTACHED 



POST STATUS FLAG 



0012 ?? 




POST_STATUS 


= 0080 
= 0040 




FATAL_ERROR 
NON_FATAL_ERR 


= 0020 
= 0010 
= 0002 
= 0001 




BAD_RTC_MEM 
FEATURE_ERROR 
MFG_MODE 
POST_ACTIVE 




M E M 


R Y SIZE 


0013 ???? 




MEMORY_SIZE 




BATTERY CONTROL FLAGS 


0015 ?? 
= 0080 
= 0040 
= 0020 




BAT_STATUS 
LOW_BAT_SIG 
LOW_BAT_HOLD 
LOW_BAT_PEND 



DB 

EQU 
EQU 

EQU 
EQU 
EQU 
EQU 

( 1 K 
DW 



DB 
EQU 
EQU 
EQU 



? ; POST ERROR FLAGS AND STATUS 

; (DURING POST) 

80H ; POST DETCD FATAL SYS ERROR 

40H ; POST HAS DETECTED AN ERROR 

; (NON_FATAL) 

20H ; RTC MEMORY BAD - DO NOT USE 

10H ; FEAT DEV FAILED (ROM_SCAN) 

02H ; MANUFACTURING MODE ACTIVE 

01H ; POST IS CURRENTLY ACTIVE 



Y T E S 



80H 
40H 
20H 



; MEMORY SIZE IN K BYTES 



BATTERY SUPPORT STATUS 
LOW BATTERY SIGNALLED FLAG 
LOW BATTERY KEY HOLD STATE 
LOW BAT PENDING SECOND SENSE 



ROM BIOS 2-17 



IOS STATUS FLAG 



0019 



0016 ?? 


BIOS_STATUS 


DB 


? j 


= 0080 


DSP_BLANKED 


EQU 


80H ; 


= 0040 


F_RESUME 


EQU 


40H ; 


= 0020 


KYBD_ACTIVE 


EQU 


20H 


= 0010 


B00T_F1HIT 


EQU 


10H 


= 0004 


DCL_SUPP0RTED 


EQU 


04H 


= 0002 


FORCE_DCL 


EQU 


02H 


= 0001 


KB_NOISE_ACT 


EQU 


01H ; 




KEYBOARD DATA AREAS : 


0017 


KB_AREA1 


LABEL 


BYTE ; 




KEYBOARD FL 


A G 




0017 ?? 


KB_FLAG 


DB 


? ; 


= 0080 


INS_STATE 


EQU 


80H ; 


= 0040 


CAPS_STATE 


EQU 


40H ; 


= 0020 


NUM_STATE 


EQU 


20H ; 


= 0010 


SCROLL-STATE 


EQU 


10H ; 


= 0008 


ALT_SHIFT 


EQU 


08H ; 


= 0004 


CTL_SHIFT 


EQU 


04H ; 


= 0002 


LEFT_SHIFT 


EQU 


02H 


= 0001 


RIGHT SHIFT 


EQU 


01H ; 




KEYBOARD FL 


A G 1 




0018 ?? 


KB FLAG 1 


DB 


? 


= 0080 


INS_SHIFT 


EQU 


80H ; 


= 0040 


CAPS_SHIFT 


EQU 


40H ; 


= 0020 


NUM_SHIFT 


EQU 


20H 


= 0010 


SCROLL_SHIFT 


EQU 


10H ; 


= 0008 


HOLD_STATE 


EQU 


08H 


= 0004 


SYS_SHIFT 


EQU 


04H ; 



ALT_INPUT 



DB 





; k E 


Y 


BOARD AS 


C I I 


001A ???? 






BUFFER_HEAD 


DW 




; 




HEAD = TAIL INDICATES 


001C ???? 






BUFFER_TAIL 


DW 


OOIE 10 [ 


???? 


] 


KB_BUFFER 


DW 


003E 






KB_BUFFER_END 


LABEL 


= 0027 






KB_AREA1_LNG 


EQU 



BIOS STATUS FLAGS 
DISPLAY HAS BEEN BLANKED 
(KYBD INACTIVE) 
FORCE SYSTEM RESUME MODE REQ 
KEBD HAS HAD A KEY PRESSED 
Fl KEY HIT IN BOOT ROUTINE 
DSKT CHANGE LINE SUPPORTED 
SYS RESUMED - FORCE DISKETTE 
CHANGE LINE ERROR ON NEXT OP 
FLAG TO SHOW AUDIO ROUTINE 



KYBD INT 9 AND INT 16 FLAGS 
AND BFR (CLRD BY KYBD_RESET 
ROUTINE DURING POST) 



KEYBOARD FLAG STATUS BYTE 1 

INSERT STATE IS ACTIVE 
CAPS LOCK STATE TOGGLED 
NUM LOCK STATE TOGGLED 
SCROLL LOCK STATE TOGGLED 
ALTERNATE SHIFT KEY PRESSED 
CONTROL SHIFT KEY PRESSED 
LEFT SHIFT KEY PRESSED 
RIGHT SHIFT KEY PRESSED 



SECOND BYTE OF KEYBOARD STATUS 

INSERT KEY IS DEPRESSED 
CAPS LOCK KEY IS DEPRESSED 
NUM LOCK KEY IS DEPRESSED 
SCROLL LOCK KEY IS DEPRESSED 
; SUSPEND KEY HAS BEEN TOGGLED 
; SYS REQUEST KEY IS DEPRESSED 



? ; STORAGE FOR ALT KEYPAD ENTRY 
UFFER AND POINTERS 
? ; POINTER TO HEAD OF KBD BUFFER 
HAT THE BUFFER IS EMPTY 

? ; POINTER TO TAIL OF KBD BUFFER 
16 DUP(?) ; ROOM FOR 16 ENTRIES 

WORD ; LAST BYTE IN KB_AREA1_LNG 
$-KB_AREAl ; LNTH OF KEYBOARD AREA 1 



2-18 ROM BIOS 



003E ?? 
= 0080 



003F ?? 
= 0080 
= 0020 



0040 ?? 
= 0025 



0041 ?? 

= 0080 
= 0040 
= 0020 
= 0010 
= 0009 
= 0008 
= 0006 
= 0004 
= 0003 
= 0002 
= 0001 



DISKETTE DATA AREAS 



SEEK STATUS AND FLAGS 



SEEK_STATUS 



INT.FLAG 



EQU 



080H 



DRIVE RECALIBRATION STATUS 
BIT 3-0 = DRV 3-0 NEEDS RECAL 
BEFORE NEXT SEEK IF BIT IS = 
BIT 7 = INTERRUPT OCCURRED 



MOTOR STATUS AND MOTOR OFF DELAY COUNT 



MOTOR_STATUS 

WRITE_OP 

MOTOR_OK 



MOTOR_COUNT 
MOTOR_WAIT 



DB ? ; MOTOR STATUS 

EQU 080H ; CURRENT OPERATION IS A WRITE 

EQU 020H ; MOTOR ON FOR 500 MSEC 

BIT 3-0 = DRV 3-0 IS CNTRLY 
RUNNING 

? ; TIME OUT CNTR FOR DRIVE OFF 
37 ; 2 SECS OF CNTS FOR MOTOR OFF 



DB 
EQU 



DISKETTE OPERATION END STATUS 

DISKETTE_STATUS DB ? ; RETURN CODE STATUS BYTE 



ATTACH FAILED TO RESPOND 
SEEK OPERATION FAILED 
NEC CONTROLLER HAS FAILED 
BAD CRC ON DISKETTE READ 
ATMPT TO DMA CROSS 64K BNDRY 
DMA OVERRUN ON OPERATION 
MEDIA CHANGED ON 3.5" DRIVES 
REQUESTED SECTOR NOT FOUND 
WRITE ATTEMP ON WRT PROT DSK 
ADDRESS MARK NOT FOUND 
BAD CMD PASSED TO DSKT I/O 



TIME_OUT 


EQU 


80H 


BAD_SEEK 


EQU 


40H 


BAD_NEC 


EQU 


20H 


BAD_CRC 


EQU 


10H 


DMA_BOUNDARY 


EQU 


09H 


BAD_DMA 


EQU 


08H 


MEDIA_CHANGE 


EQU 


06H 


RECORD_NOT_FND 


EQU 


04H 


WRITE_PROTECT 


EQU 


03H 


BAD_ADDR_MARK 


EQU 


02H 


BAD_CMD 


EQU 


01H 



DISKETTE CONTROLLER STATUS 

0042 07 [ NEC_STATUS DB 7 DUP(?) ; STATUS BYTES FROM CNTLR 
?? 

] 



VIDEO DISPLAY DATA AREA 



0049 ?? 
004A ???? 
004C ???? 
004E ???? 

0050 08 [ 



CRT_MODE 


DB 


CRL.COLS 


DW 


CRT_LEN 


DW 


CRT_START 


DW 


CURSOR_POSN 


DW 



? ; CURRENT CRT MODE 

? ; NUMBER OF COLUMNS ON SCREEN 

? ; LENGTH OF REGEN IN BYTES 

? ; STARTING ADDR IN REGEN BFR 

8 DUP(?) ; CURSOR EACH OF UP TO 8 PGS 



0060 


???? 


CURSOR_MODE 


DW ? 


0062 


?? 


ACTIVE.PAGE 


DB ? 


0063 


???? 


ADDR_6845 


DW ? 


0065 


?? 


CRT_MODE_SET 


DB ? 


0066 


?? 


CRT_PALETTE 


DB ? 



CURRENT CURSOR MODE SETTING 
CURRENT PAGE BEING DISPLAYED 
BASE ADDR FOR ACT DSPLY CARD 
CRNT SETTING OF THE 3X8 REG 
CRNT PALETTE SETTING COLOR CD 
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THE FOLLOWING FOUR BYTES ARE LOADED IN THE BLANK_CTR THEN SYS_OFF_CTR 
BY THE RTCLALARM INTERRUPT HANDLER. THE ORDER MUST NOT BE CHANGED 



0067 ???? 


0069 ???? 


006B ?? 


006C ???? 


006E ???? 


0070 ?? 


= 0059 


= 0059 


= 0023 


* 0002 


= 0012 


= 0444 


= 0007 


= 0018 


= OOBO 



AUTO DISPLAY BLANK TIME COUNTER 
DSP_BLANK_CTR DW ? 
AUTO SYSTEM OFF TIME COUNTER 

SYS_OFF_CTR DW ? 
INTR_FLAG DB ? 

TIMER DATA AREA 



TIMERJ.OW 



DW 



TIMER_HIGH DW 
TIMER_OFL DB 



SEC_MAX_LIMIT 


EQU 


59H 


MIN_MAX_LIMIT 


EQU 


59H 


HRS_MAX_LIMIT 


EQU 


23H 


GET_RTC_TIME 


EQU 


2 


COUNTS_SEC 


EQU 


18 


COUNTS_MIN 


EQU 


1092 


COUNTS_HOUR 


EQU 


7 


COUNTS_DAY 


EQU 


1573040 


COUNTS_DAY_HI 


EQU 


18H 


COUNTS_DAY_LO 


EQU 


OBOH 



TIME DSPLY BLANKED (SECS) 

TIME SYSTEM IS POWERED OFF 
FLAG TO SHOW AN INTERRUPT 



; LOW WORD OF TIMER COUNT 

; HIGH WORD OF TIMER COUNT 

; TIMER ROLLED SINCE LAST RD 

MAX FOR BCD SECONDS 
MAX FOR BCD MINUTES 
MAX FOR BCD HOURS 

TIMER COUNTS PER SECOND 
TIMER COUNTS PER MINUTE 
65543-10000H (65543 TOO LARGE 
FOR 1 WORD, SO LOW WORD IS 
USED IN CALCULATIONS) 
= 1800B0H COUNTS PER DAY 
HIGH BYTE OF COUNTS PER DAY 
LOW BYTE OF COUNTS PER DAY 



0071 ?? 
= 0080 



SYSTEM DATA AREA 



BIOS_BREAK 
BREAK_HIT 



DB 
EQU 



? ; BREAK KEY FLAGS 

80H ; BREAK KEY HAS BEEN HIT 



0072 ???? 
= 1234 
= 5678 
= 9ABC 
= ABCD 



0074 



02 [ 



RESET.FLAG 

SOFT_RESET 

SYS_SUSPEND 

MFG_MEM_MODE 

LOOP_MODE 



DW 

EQU 

EQU 

EQU 

EQU 



DW 



2 DUP(?) 



1234H 
5678H 
9ABCH 
OABCDH 



SYS RESET TYPE CONTROL FLAG 
RE-IPL WITHOUT STORAGE CLEAR 
SYS SUCCESSFULLY SUSPENDED 
MANUFACTURING MEMORY MODE 
POST LOOP MODE 

RESERVED 



PRINTER AND RS232 TIME-OUT VARIABLES 



0078 03 [ PRINT_TIM_OUT DB 3 DUP(?) ; FOR LPT1-LPT4 RESPECTIVELY 

?? 

] 



007B ?? 
007C 04 [ 



EVENT_TIM_OUT DB 
RS232_TIM_0UT DB 



? ; WAIT ON EXT EVNT TIMEOUT CTR 
4 DUP(?) ; FOR C0M1-C0M4 RESPECTIVELY 
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???? 


; ADDITIONAL KEYBOARD DATA 


AREA 






0080 


BUFFER_START DW 






; PTRS TO 


0082 


???? 


BUFFER_END DW 
; KB_BUFFER_END BY POST 




? 


; INIT SET 


0084 


07 [ 


DB 7 DUP(?) 






; RESERVED 



008B ?? 
= 0080 



] 

DISKETTE LAST DATA RATE INFORMATION 

? 
80H 



LAST_DATA_RATE DB 
RATE.250KBS EQU 



008C 



02 [ 



DW 



2 DUP(?) 



; ALWAYS 80H - 250 KBS RATE 

; 250 KB/SEC DATA RATE VALUE 

; SET BY POST DISKETTE TEST 

; RESERVED 



] 



DISKETTE DRIVE MEDIA TYPE CODES (MEDIA TYPE BYTE = IF NO DRIVE) 
|7-6|5 |4 |3|2-0| 



I 
I 
I 
I 

-- MEDIA TYPE CODES (ALWAYS 
111 FOR 720KB MEDIA) 
-- RESERVED - ALWAYS 
MEDIA TYPE ESTABLISHED - ALWAYS 1 
— DOUBLE STEP REQUIRED - NOT SUPPORTED ALWAYS 
DATA TRANSFER RATE FOR THIS DRIVE - ALWAYS 10 (250 KBS) 



0090 ?? 

0091 ?? 
= 0097 

0092 ?? 


MEDIA_TYPE_DRO DB 
MEDIA_TYPE_DR1 DB 
MEDIA_720KB EQU 
DB ? 

LOW BATTERY WARNING COUNTER 


? 
? 
97H 


DISKETTE MEDIA TYPE DRIVE 
DISKETTE MEDIA TYPE DRIVE 1 
MEDIA TYPE FOR 720 KB DSKT 
RESERVED 


0093 ?? 


LOW_BAT_CTR DB 


? 


LOW BATTERY WARNING COUNTER 


0094 ???? 


DW ? 




RESERVED 




KEYBOARD CONTROL FLAG 3 USED 


BY INTERRl 


JPT 9 KEYBOARD PROCESSING 


0096 ?? 

= 0002 

0097 ?? 


KB_FLAG_3 DB 

LC_HC EQU 02H 
DB ? 


? 


KEYBOARD TRACKING FLAG 3 

(CLEARED BY KYBD_RESET 

ROUTINE IN POST) 

LAST CODE HIDDEN CODE FLAG 

RESERVED 
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EVENT POST/WAIT DATA AREA 



0098 


0098 ???? 


009A 


009A ???? 


= 0080 


009C ???? 


009E ???? 


OOAO ?? 


= 0080 


= 0004 


= 0002 


= 0001 



POINTER TO USERS POST FLAG 

IO_ROM_INIT LABEL WORD 

USER_FLAG DW ? 

IO_ROM_SEG LABEL WORD 

USER_FLAG_SEG DW ? 

EVENT_POSTED EQU 080H 



REDEFINITION OF WORD DURING 

POST ROM_SCAN 

OSET ADDR OF USERS WAIT FLAG 

REDEFINITION OF WORD DURING 

POST ROM_SCAN 

SEG ADDR OF USERS WAIT FLAG 

; FLAG SET WHEN WAIT TIME EXP 
; IN USERS FLAG 



INTERVAL WAIT TIME SAVE AREA 



RTCJ.OW 
RTCHIGH 



DW 
DW 



POST/WAIT FLAGS 

RTC_WAIT_FLAG DB 
POSTED EQU 80H 

PON_ALRM_PEND EQU 

ALARM.PEND EQU 

INTERVAL_WAIT EQU 



04H 
02H 
01H 



LOW WORD OF USER WAIT COUNT 
HIGH WORD OF USER WAIT COUNT 



WAIT ACTIVE FLAG 
POST ON INTERVAL OCCURRED 
POWER ON BY ALARM PENDING 
USER ALRM INT 4AH PNDNG SPND 
INTVL WAIT CURRENTLY ACTIVE 



00 B4 


00B4 


00B4 ?? 


= 0080 


= 0040 


= 0010 


= 0008 


= 0004 


00B5 ???? 


00B7 ???? 


00B9 ?? 


OOBA ?? 


OOBB ?? 


OOBC ?? 



KEYBOARD NMI PRE-PROCESSING FUNCTION CONTROL SAVE AREA B4H-CCH 



ORG 0B4H 
KB_AREA2 

KB_NMI_CNTL 

P60_L0ADED 

FUNC_STATE 

XLATE_BUSY 

CLICK_0N 

KEYPAD_STATE 

B_PEND1 
B_PEND2 
P60_H0LD_BYTE 
LAST_CLICK_KEY 

KB_NMI_HEAD 
KB_NMI_TAIL 



LABEL BYTE 



DB 


? 


EQU 


80H 


EQU 


40H 


EQU 


10H 


EQU 


08H 


EQU 


04H 



DW 
DW 
DB 
DB 

DB 
DB 



OOBD 



10 [ 



KB_NMI_BUFFER DB 



KBD AREA 2 (CLRD KYBD_RESET 
ROUTINE IN POST) 
KBD PREPROCESSOR CTRLL FLAGS 
KEYBOARD PORT 60 IS LD FLAG 
KEYBOARD FUNCTION KEY STATE 
KEYBOARD TRANSLATION ACTIVE 
KEYBOARD CLICKER IS ENABLED 
KEYBOARD KEYPAD STATE 

KEYBOARD BRK PENDING FLAGS 1 

KEYBOARD BRK PENDING FLAGS 2 

PORT 60 SINGLE BYTE QUEUE 

AREA FOR SCAN CD OF LAST KEY 

CLICKED 

PTR TO HEAD OF PREPROC BFR 

PTR TO END OF PREPROC BFR 



16 DUP(?) ; ROOM FOR 16 ENTRIES 



= 0010 
= 0019 
OOCD 



KB_NMI_BLTH 
KB_AREA2_LNG 
DATA ENDS 



EQU $-KB_NMI_BUFFER ; LENGTH OF NMI BFR 
EQU $-KB_AREA2 ; LENGTH OF KYBD AREA 2 
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POST Temporary Data Area 



EXTRA DATA SEGMENT - FOR POST AND PRINT SCREEN STATUS ONLY 



0000 

0000 ?? 
= 0001 

= OOFF 

0001 ???? 

0003 ?? 
= 0080 

= 0040 
= 0020 
= 0010 

0004 ?? 
= 0001 

= 0002 
= 0003 
= 0004 
= 0005 
= 0006 
= 0009 
= 0010 
= 0012 
= 0011 
= 0050 
= 0051 

0005 ?? 
= 0001 

= 0002 
= 0003 
= 0004 
= 0005 
= 0006 

0006 ???? 
0008 ?? 



XXDATA SEGMENT 


AT 50H 




STATUS.BYTE 


DB 


? 


PRTSC_ACTIVE 


EQU 


01 ; 


PRTSC_ERROR 


EQU 


OFFH ; 


POST.PTR 




DW 


? ; 


P0ST_MASK 




DB 


? ; 


S0FT_M0DE 




EQU 


80H ; 


WARM_M0DE 




EQU 


40H ; 


COLD_MODE 




EQU 


20H 


MFG_TST 




EQU 


10H ; 


POST.DEVID 




DB 


? j 


SYS_ID 


EQU 


01 




MEM_ID 


EQU 


02 




KYBD_ID 




EQU 


03 ; 


MONO_ID 




EQU 


04 ; 


COLOR_ID 




EQU 


05 ; 


DSKT_ID 




EQU 


06 ; 


PPRT_ID 




EQU 


09 ; 


APRT_ID 




EQU 


10H ; 


RS232.ID 




EQU 


12H ; 


M0DEM_ID 




EQU 


11H ; 


LCD_ID 


EQU 


050H 




CPRT_ID 




EQU 


051H ; 


P0ST_IC0N 




DB 


? j 


SYSTEM 


EQU 


01 




FEATURE 




EQU 


02 ; 


SETUP 


EQU 


03 




BATTERY 




EQU 


04 I 


PCHECK2 




EQU 


05 ; 


PROMPT 


EQU 


06 





MFG_ERR_CODE DW 
MFGL.CKPT DB 



0009 
0009 



10 [ 



TEMP 
DB 



LABEL BYTE 
16 DUP(?) 



PRINT SCREEN ACTIVE STATUS 
BIT ON WHEN PRTSC IS ACTIVE 
PRTSC ERROR - CANCELLED 

PTR TO CURRENT TEST ROUTINE 

PWR ON SELF TST ROUTINE MASK 
SYSTEM SOFT START MODE 
SYSTEM WARM START MODE 
SYSTEM COLD START MODE 
MANUFACTURING TEST MODE 

DEV ID FOR POST ROUTINE CALLS 

SYSTEM UNIT ID 

MEMORY ID 

KEYBOARD ID 

MONOCHROME CRT ADAPTER ID 

COLOR CRT ADAPTER ID 

DISKETTE ID 

PARALLEL PRINTER ID 

ALT PARALLEL PRINTER ID 

RS232 PORT ID 

MODEM_ID 

LCD DEVICE ID 

COMPACT PRINTER PORT ID 

ICON NUMBER FOR FAILING AREA 
SYSTEM UNIT ICON 
SYSTEM FEATURE ICON 
SYSTEM SETUP 
BATTERY LOW ICON 
SYSTEM PARITY CHECK 2 
USER PROMPT ICON 

MANUFACTURING ERROR CODE 
MANUFACTURING CHECKPOINT 

USED DURING SELF TEST ONLY 



0019 
0019 



11 [ 



ASC_STR LABEL 
DB 17 DUP(?) 



BYTE 



ASCII STRING FOR ERROR MSG 



002A 



07 [ 



IC0N_DIS 



7 DUP(?) ; AREA USED FOR E_MSG ONLY 



0031 



07 [ 



ICON_MSG 



DB 



7 DUP(?) ; AREA USED FOR E_MSG ONLY 
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0038 ?? 


DSPTEST_MASK 


DB 


? 


= 0080 


VR0M_CGA 


EQU 


80H 


= 0040 


VR0M_M0N0 


EQU 


40H 


= 0008 


VIDE0_R0M 


EQU 


08H 


= 0004 


MONO EQU 


04H 




= 0002 


CGA EQU 


02H 




= 0001 


LCD EQU 


01H 




0039 ?? 


SUSP_DSP_CON 


DB 


? 


003A 


XXDATA ENDS 







DISPATCH MASK FOR DSP_TEST 

VIDEO ROM CGA AVAILABLE 

VIDEO ROM MONO AVAILABLE 

DISPATCH VIDEO_LINK 

MONO AVAILABLE 

CGA AVAIL / DSPATCH CRT_TEST 

LCD AVAIL / DSPATCH LCD TSTS 

HLDS RTC_DSP_CON VALUE 



VIDEO DISPLAY BUFFER 



0000 



VIDEO_RAM 



SEGMENT AT 0B800H 



0000 
0000 








REGEN LABEL BYTE 
REGENW LABEL WORD 


0000 


4000 [ 


?? 


] 


DB 16384 DUP(?) 


4000 








VIDEO_RAM ENDS 
INCLUDE SROMMACS.MAC 



; 16K BYTE DISPLAY BUFFER 



Common Macros 



IDENT MACRO SNAME,SEQ,REV 


NAME SNAME 


ENDM 




SAVE 


MACRO 


PUSH 


AX 


PUSH 


BX 


PUSH 


CX 


PUSH 


DX 


PUSH 


BP 


PUSH 


SI 


PUSH 


DI 


PUSH 


ES 


PUSH 


DS 


ENDM 




RESTORE 


MACRO 


POP 


DS 


POP 


ES 


POP 


DI 


POP 


SI 


POP 


BP 


POP 


DX 


POP 


CX 


POP 


BX 


POP 


AX 


ENDM 
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THE FOLLOWING MACROS MAY BE USED WHEN A CONDITIONAL JUMP OF MORE THAN 
+/- 128 BYTES IS REQUIRED. THE MACROS ARE NAMED THE SAME WAY AS THE 
CONDITIONAL JUMP EXCEPT J BECOMES JF. 



JFA MACRO JLABEL 
JNA $+5 
JMP JLABEL 
ENDM 

JFNA MACRO JLABEL 
JA $+5 
JMP JLABEL 
ENDM 

JFB MACRO JLABEL 
JNB $+5 
JMP JLABEL 
ENDM 

JFNB MACRO JLABEL 
JB $+5 
JMP JLABEL 
ENDM 

JFG MACRO JLABEL 
JNG $+5 
JMP JLABEL 
ENDM 

JFNG MACRO JLABEL 
JG $+5 
JMP JLABEL 
ENDM 

JFL MACRO JLABEL 
JNL $+5 
JMP JLABEL 
ENDM 

JFNL MACRO JLABEL 
JL $+5 
JMP JLABEL 
ENDM 

JFO MACRO JLABEL 
JNO $+5 
JMP JLABEL 
ENDM 

JFNO MACRO JLABEL 
JO $+5 
JMP JLABEL 
ENDM 

JFP MACRO JLABEL 
JNP $+5 
JMP JLABEL 
ENDM 

JFNP MACRO JLABEL 
JP $+5 
JMP JLABEL 
ENDM 

JFS MACRO JLABEL 
JNS $+5 
JMP JLABEL 
ENDM 

JFNS MACRO JLABEL 
JS $+5 
JMP JLABEL 
ENDM 

JFZ MACRO JLABEL 
JNZ $+5 
JMP JLABEL 
ENDM 

JFNZ MACRO JLABEL 
JZ $+5 
JMP JLABEL 
ENDM 
END 



IF NOT ABOVE JUMP AROUND JMP 
ELSE TAKE A LONG JUMP 



IF NOT NOT ABOVE JUMP AROUND 
ELSE TAKE A LONG JUMP 



IF NOT BELOW JUMP AROUND JMP 
ELSE TAKE A LONG JUMP 



IF NOT NOT BELOW JUMP AROUND 
ELSE TAKE A LONG JUMP 



IF NOT GREATER JUMP AROUND 
ELSE TAKE A LONG JUMP 



IF NOT NOT GTR JUMP AROUND 
ELSE TAKE A LONG JUMP 



IF NOT LESS JUMP AROUND JUMP 
ELSE TAKE A LONG JUMP 



IF NOT NOT LESS JUMP AROUND 
ELSE TAKE A LONG JUMP 



IF NOT OVERFLOW JUMP AROUND 
ELSE TAKE A LONG JUMP 



IF NOT NOT OFLOW JMP AROUND 
ELSE TAKE A LONG JUMP 



IF NOT PRTY E JMP AROUND JMP 
ELSE TAKE A LONG JUMP 



IF PARITY E JMP AROUND JMP 
ELSE TAKE A LONG JUMP 



IF NOT SIGN NEG JMP AROUND 
ELSE TAKE A LONG JUMP 



IF SIGN NEGATIVE JUMP AROUND 
ELSE TAKE A LONG JUMP 



IF NOT ZERO JUMP AROUND JUMP 
ELSE TAKE A LONG JUMP 



IF NOT NOT JMP AROUND JMP 
ELSE TAKE A LONG JUMP 
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Nonmaskable Interrupt Handler 
(B10NMIH) 



0000 



**************************** 

PUBLICS 
**************************** 

PUBLIC NMI_FLIH 
PUBLIC PUT_RTC_NMI 
PUBLIC GET_RTC_NMI 



********** 



r********** 



EXTERNALS 
ir*************************** 

EXTRN PAR_CHK:BYTE 

EXTRN ICON_PR:NEAR 

EXTRN ENABLE_NMI:NEAR 

EXTRN DISABLE_NMI:NEAR 

ROMCODE SEGMENT BYTE PUBLIC 
ASSUME CS: ROMCODE 
IDENT B10NMIH, 10,00 



First Level Interrupt Handler 
(NMI-FLIH) 



********************************************************************** 

MODULE-NAME : NMI_FLIH 
DATE LAST MODIFIED : 09/12/85 

DESCRIPTIVE-NAME : THIS ROUTINE SUPPORTS THE SIX TYPES OF NMI SOURCES 



COPYRIGHT 



7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 



CHANGE LEVEL: ECOOO 

FUNCTION: THIS MODULE HANDLES NON-MASKIBLE INTERRUPTS. THE 
SIX TYPES OF NMI'S ARE: 

DISKETTE NMI - I/O INSTR. ISSUED WITH CONTROLLER OFF 
I/O CHANNEL CHECK - I/O DEVICE CHANNEL ERROR 
SYSTEM SUSPEND - 2 SECONDS BEFORE POWER OFF OCCURS 
KYBD_DATA - KEYBOARD HAS DATA IN PORT 7DH 
KYBD_CLEAR - INT 9 HANDLER ISSUED KYBD CLEAR I/O 
RTC_ALARM - REAL TIME CLOCK INTERRUPT 

MODULE SIZE: 2618 BYTES 
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0000 



05 [ 



ENTRY CONDITIONS: 

PURPOSE OF ENTRY: SERVICE NON-MASKIBLE INTERRUPT 

INPUT CONDITIONS: NON-MASKIBLE INTERRUPT OCCURRED 

RESTRICTIONS: NONE 

INTERNALLY REFERENCED ROUTINES: 

DSKT_RESYNC KYBD_PREP KYBD_CLR 
KYBD.XLT RTC_ALARM_NMILOW_BAT_CHK 
CHAN_CHK SUSPEND RESUME 

EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 

CHANGE ACTIVITY: NONE 

REGSAVE STRUC 

DW 5 DUP(?) 



OOOA 


???? 


OOOC 


???? 


OOOE 


???? 


0010 


???? 


0012 


???? 


0014 


???? 


0016 


???? 


0018 




0000 


08 [ 


0010 


?? 


0011 


?? 


0012 




= 0200 


= 00 EC 


= OOEE 


0000 




0000 


50 


0001 


BO 07 


0003 


E6 72 


0005 


53 


0006 


51 


0007 


52 


0008 


55 


0009 


56 


OOOA 


57 


OOOB 


06 


OOOC 


IE 


OOOD 




OOOD 


FC 


OOOE 


B8 


0011 


8E D8 


0013 


8B EC 


0015 


E4 62 


0017 


24 DF 


0019 


74 46 


001B 


8A D8 


001D 


E4 61 


001F 


OC 08 


0021 


E6 61 



DXSAVE DW 
CXSAVE DW 
BXSAVE DW 
AXSAVE DW 
OFFSAVE DW 
SEGSAVE DW 
FLGSAVE DW 
REGSAVE ENDS 



REGLSAV STRUC 

DW 8 DUP(?) 



ALSAVE DB 
AHSAVE DB 
REGLSAV ENDS 



DX SAVE AREA ON STACK 
CX SAVE AREA ON STACK 
BX SAVE AREA ON STACK 
AX SAVE AREA ON STACK 
OFFSET SAVE AREA ON STACK 
SEGMENT SAVE AREA ON STACK 
FLAGS SAVE AREA ON STACK 



I_FLAG 

IN_INSTR 
OUT_INSTR 

ASSUME 
NMI_FLIH 

PUSH 

MOV 

OUT 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 
NMI_REDRIVE: 

CLD 



EQU 

EQU 
EQU 



0200H 



OECH 
OEEH 



; AL SAVE AREA ON STACK 
: AH SAVE AREA ON STACK 



INTERRUPT FLAG IN FLAGS 

REGISTER 

OBJECT CODE FOR IN AL.DX INSTR 

OBJECT CODE FOR OUT DX,AL INSTR 



DS: DATA, ES: NOTHING 
PROC FAR 
AX ; SAVE REGISTERS 

AL,DISABLE_SLEEP+CLOCK_RUN ; DISABLE NMIS 
CLOCK_CTL,AL ; 
BX 
CX 
DX 
BP 
SI 
DI 
ES 
DS 



MOV 

MOV 

MOV 

IN 

AND 

JZ 

MOV 
IN 
OR 
OUT 



AX, DATA 

DS,AX 

BP,SP 

AL,NMI_SRC 

AL,NOT TIMER2_SN 

NMIH_OUT 

BL,AL 

AL,NMI_CNTL 
AL,DIS_ALARM 
NMI_CNTL,AL 



CLEAR DIRECTION 



SET BP TO STACK PTR 
READ NMI SOURCE FLAGS 
SAVE ALL BUT TIMER SENSE 



BL <--- NMI SOURCE FLAGS 
DISABLE RTC ALARM NMI 
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0023 


F6 


C3 40 


0026 


74 


03 


0028 


E9 


0536 R 


002B 






002B 


F6 


C3 08 


002E 


74 


03 


0030 


E9 


0797 R 


0033 






0033 


F6 


C3 80 


0036 


75 


37 


0038 


F6 


C3 01 


003B 


74 


03 


003D 


E9 


025F R 


0040 






0040 


F6 


C3 10 


0043 


74 


03 


0045 


E9 


02F6 R 


0048 






0048 


F6 


C3 04 


004B 


74 


03 


004D 


E9 


0551 R 


0050 






0050 


FA 




0051 


BO 


07 


0053 


E6 


72 


0055 


E4 


61 


0057 


24 


F7 


0059 


E6 


61 


005B 


E4 


62 


005D 


24 


DF 


005F 


75 


AC 


0061 






0061 


IF 




0062 


07 




0063 


5F 




0064 


5E 




0065 


5D 




0066 


5A 




0067 


59 




0068 


5B 




0069 


BO 


27 


006B 


E6 


72 


006D 


58 




006E 


CF 




006F 







TEST 


BL,IOCHK_NMI 


JZ 


NMI_00 


JMP 


CHAN_CHK 


NMI_00: 




TEST 


BL,SYS_SUSP_NMI 


JZ 


NMI_01 


JMP 


SUSPEND 


NMI_01: 




TEST 


BL,DSKT_NMI 


JNZ 


DSKT_RESYNC 


TEST 


BL,KBDATA_NMI 


JZ 


NMI_02 


JMP 


KYBD.PREP 


NMI_02: 




TEST 


BL,KBCLR_NMI 


JZ 


NMI_03 


JMP 


KYBD_CLR 


NMI_03: 




TEST 


BL,RTC_ALRM_NMI 


JZ 


NMIH_EXIT 


JMP 


RTC_ALARM_NMI 



CHANNEL CHECK? 

PROCESS CHANNEL CHECK 

SYSTEM SUSPEND? 

RUN SYSTEM SUSPEND ROUTINE 

PROCESS DISKETTE NMI 
KEYBOARD DATA READY? 
GO TO PROCESS DATA 
KEYBOARD CLEAR? 
PROCESS KEYBOARD CLEAR 



EXIT IF NOT ALARM 
OTHERWISE MUST BE ALARM 



KYBD.PREP, KYBD_CLR , DSKT_RESYNC, RTC_ALARM_NMI ROUTINES RETURN HERE 



NMIH_EXIT: 
CLI 

MOV AL,DISABLE_SLEEP+CLOCK_RUN 
OUT CLOCK_CTL,AL 



DISABLE NMIS 



IN 

AND 

OUT 



AL,NMI_CNTL 
AL,NOT DIS_ALARM 
NMI_CNTL,AL 



IN AL,NMI_SRC 
AND AL.NOT TIMER2_SN 
JNZ NMI_REDRIVE 
NMIH_OUT: 



; RE-ENABLE ALARM NMI 



READ NMI SOURCE FLAGS 
SAVE ALL BUT TIMER SENSE 



POP 


DS ; RESTORE REGIS 


POP 


ES 


POP 


DI 


POP 


SI 


POP 


BP 


POP 


DX 


POP 


CX 


POP 


BX 


MOV 


AL,DISABLE_SLEEP+CLOCK_RUN+GLOBAL_NMI 


OUT 


CLOCK_CTL,AL 


POP 


AX 


I RET 




NMI_FLIH 


ENDP 



ENABLE NMIS 



INCLUDE DSKTNMI.INC 
SUBTTL DISKETTE RESYNC DRIVER 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



NEC_OUTPUT:NEAR 

RESULTSrNEAR 

DISK_RESET:NEAR 

GET_PARM:NEAR 

GET_VECTORG>:NEAR 
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Diskette Resync (DSKT.RESYNC) 



006F 



*************************************************** 

MODULE-NAME : DSKT.RESYNC 

DESCRIPTIVE-NAME : DISKETTE RESYNC ROUTINES 

COPYRIGHT : 7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 

CHANGE LEVEL: 0.0 

FUNCTION : TO POWER ON AND RE-SYNCHRONIZE THE STATE OF THE DISKETTE 
CONTROLLER WITH THE CURRENT STATE OF THE DISKETTE DRIVES 

MODULE SIZE: 660 BYTES 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: TO POWER UP THE FDC WHEN THE FDC IS POWERED OFF 

INPUT CONDITIONS: DS POINTING TO ROM DATA AREA, BP POINTING 
TO STACK 

RESTRICTIONS: NONE 

THIS ROUTINE IS INVOKED WHENEVER AN I/O ACCESS IS MADE TO THE FDC 
REGISTERS 3F2,3F4,3F5 WHEN POWER IS OFF TO THE FDC. IF THE FDC IS 
POWERED ON BY THIS ROUTINE AND THE RETURN ADDRESS-1 IS POINTING TO AN 
IN AL,DX OR OUT DX,AL INSTRUCTION, THE RETURN ADDRESS IS ADJUSTED TO 
RE-EXECUTE THAT INSTRUCTION UPON NMI EXIT. 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: POWER RESTORED TO THE FDC 

TRACK COUNTER(S) FOR THE FDC AND ARRAY IN SYNC 

NMI'S ENABLED (PORT 77H) 

SETUP TO REISSUE THE DISKETTE I/O COMMAND 

ERROR EXIT CONDITIONS: NONE 

REGISTERS MODIFIED: AX, BX, CX, DX, ES, AND SI 
INTERNAL DATA AREAS / TABLES: BIOS DATA AREA AT SEGMENT 40H 
EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 
EXTERNALLY REFERENCED DATA AREAS: REFER TO EXTRN LIST 

************* >■++********************************************************* 

DSKT_RESYNC PROC NEAR 
ASSUME CS:ROMCODE 
ASSUME DS:DATA,ES:ABSO 



006F 


81 


7E 


OA 


0074 


75 


14 




0076 


F6 


46 


10 


007A 


74 


OE 




007C 


BO 


B2 




007E 


E6 


77 




0080 


OC 


40 




0082 


E6 


77 




0084 


24 


BF 




0086 


E6 


77 




0088 


EB 


C6 





CMP DXSAVE[BP],DRIVE_CNTL 

JNE DSKT_ON 

TEST ALSAVE[BP],FDC_RUN 

JZ DSKT_ON 



CHECK FOR DX = RESET POR 
JUMP IF NOT 

RESET BIT ACTIVE IN AL? 
YES THEN POWER ON CNTLR 



IF NOT A RESET COMMAND TO 3F2H THEN RESET DISKETTE NMI AND EXIT LEVEL 



MOV AL,DSKT_NMI+DSKT_DEGATE+RD_CNTL+CNTL_SEL 

OUT DSKT_CNTL,AL 

OR AL,FDC_PWR 

OUT DSKT_CNTL,AL 

AND AL,NOT FDC_PWR 

OUT DSKT_CNTL,AL 

JMP NMIH_EXIT 



TOGGLE POWER ON THEN OFF TO 
RESET NMI BUT DO NOT POWER 
ON CONTROLLER 



EXIT LEVEL 
; SAVE DISKETTE MOTOR STATE BUT DISABLE DRIVE SELECTS, DMA, INTERRUPTS 



ROM BIOS 2-29 



008A 
008D 
008E 
0090 
0092 
0095 
0097 
0099 
0099 
009 C 



00C9 
00CB 
OOCC 
OOCE 
OODO 
00D2 



00D5 
00D5 
00D8 
00D9 
OODE 
OOEO 
00E2 
00E4 



00E7 
00 E A 
OOEB 
OOEF 
00 FO 
00 F4 
00 F9 



BA 03 F7 
EC 

8A D8 
24 10 
F6 C3 08 
74 02 
OC 20 

BA 03 F2 
EE 



DSKT_ON: 



IN AL,DX 

MOV BL,AL 

AND AL,DRO_MOTOR 

TEST BL,DR1_M0T_SENSE 

JZ DSKT_RS01 

OR AL,DR1_M0T0R 
DSKT_RS01: 

MOV DX,DRIVE_CNTL 

OUT DX,AL 



MOV DX,DRIVE_SENSE 



READ DRIVES MOTOR/SEL LINES 

BL <— STARTING SENSE 

SAVE DRO MOTOR STATE 

WAS DRIVE 1 MOTOR ON? 

NO THEN JUMP 

OTHERWISE TURN ON DRIVE 1 MOTOR 

SET PORT TO 3F2 

TURN OFF DMA/INT LEAVE MOTOR ON 



DISABLE POWER AND ACTIVATE DISKETTE DEGATE MODE 



009D BO B2 
009F E6 77 



MOV 
OUT 



AL,DSKT_NMI+DSKT_DEGATE+RD_CNTL+CNTL_SEL 

DSKT_CNTL,AL ; SEND TO THE DISKETTE CONTROL REG 



ENABLE CONTROLLER POWER 



00A1 OC 40 

00A3 E6 77 

00A5 F6 06 OOAO R 01 

OOAA 74 06 

00 AC E4 61 

OOAE 24 F7 

OOBO E6 61 

00 B2 

00B2 E8 076E R 

00B5 B9 050A 

00B8 E2 FE 

00 BA FA 



OR 
OUT 



AL,FDC_PWR 
DSKT_CNTL,AL 



TEST RTC_WAIT_FLAG, INTERVAL-WAIT 

JZ DSKT_RS01A 

IN AL,NMI_CNTL 

AND AL,NOT DIS_ALARM 

OUT NMI_CNTL,AL 
DSKT_RS01A: 

CALL NMI_CYCLE 



ENABLE POWER 

CHECK FOR PERIODIC INT 
ALLOW RTC ALARM INTERRUPTS 



MOV CX,5*MS_DELAY 

LOOP $ 

CLI 



; CYCLE NMI MASK, RESTORE INT FLAGS 
; DELAY TO WAIT FOR CONTROLLER 



CHECK IF NMI CAUSED BY POWER ON DURING MIDDLE OF CONTROLLER RESET 



OOBB 81 7E OA 03F2 

OOCO 75 13 

00C2 8A 46 10 

00C5 A8 04 

00C7 75 OC 



CMP 
JNE 



DXSAVE[BP],DRIVE_CNTL 
DSKT_RS02 



CHECK FOR DX 
JUMP IF NOT 



RESET PORT 



MOV AL,ALSAVE[BP] 
TEST AL,FDC_RUN 
JNZ DSKT_RS02 



GET ORIGINAL AL REG 
IS FDC RESET OFF? 
YES THEN NOT A RESET 



POWER ON REQUEST IN THE MIDDLE OF THE CONTROLLER RESET 



OC 04 
EE 

E4 77 
24 DF 
E6 77 
E9 0207 



OR 


AL,FDC_RUN 


SET RESET BACK TO OFF 


OUT 


DX,AL 




IN 


AL,DSKT_CNTL 


TURN OFF DEGATE 


AND 


AL,NOT DSKT.DEGATE 




OUT 


DSKT_CNTL,AL 




JMP 


DSKT_RSEXIT 


EXIT THE NMI TO COMPLETE 
THE RESET SEQUENCE 



TAKE OVER AND ACTIVATE DISKETTE INTERRUPT 



AO 0040 R 

50 

C6 06 0040 R FF 

2B CO 

8E CO 

Bl 06 

E8 0000 E 



MOV 

PUSH 

MOV 

SUB 

MOV 

MOV 

CALL 



AL,MOTOR_COUNT 

AX 

MOTOR_COUNT,OFFH 

AX, AX 

ES,AX 

CL,6 

GET_VECTORG> 



SAVE CURRENT MOTOR COUNT 

SAVE ON STACK 

KEEP MOTOR FROM GOING OFF 



; GET INT LEVEL 6 VECTOR LOC 



SI NOW CONTAINS INTERRUPT VECTOR ADDRESS 



26: 
50 
26: 
50 
26: 
26: 
56 



8B 04 



8B 44 02 



8C 4C 02 

C7 04 024C R 



MOV AX,ES:[SI] ; GET VECTOR OFFSET 

PUSH AX • SAVE 

MOV AX,ES:[SI+2] ; GET VECTOR SEG 

PUSH AX ; SAVE 

MOV ES:[SI+2],CS ; SET CODE SEGMENT 

MOV WORD PTR ES: [SI] .OFFSET DSKT_NMIE ; 

PUSH SI ; SAVE VECTOR ADDRESS 



2-30 ROM BIOS 



OOFA E4 21 
OOFC 24 BF 
OOFE E6 21 



OlOO 
0102 
0104 
0106 
0108 
010A 
010C 
010E 
0110 
0112 



0114 
0116 
0118 
011B 
011D 
011F 
011F 
0121 
0124 
0126 
0128 
0128 
012B 
012C 
012E 
0130 
0131 



OC 08 
F6 C3 
74 02 
OC 01 



IN AL,INTA01 
AND AL.OBFH 
OUT INTA01,AL 



; ENABLE DISKETTE INTERRUPTS 



SETUP TO READ THE TRACK COUNTERS AND DEGATE DISKETTES 



BO EA 
E6 77 
E4 77 
8A C8 
BO E2 
E6 77 
E4 77 
8A E8 
BO F2 
E6 77 



8A C3 
24 10 
F6 C3 08 
74 02 
OC 20 



MOV AL,DSKT_NMI + FDC_PWR+DSKT. 

OUT DSKT_CNTL,AL 

IN AL,DSKT_CNTL 

MOV CL,AL 

MOV AL,DSKT_NMI+FDC_PWR+DSKT. 

OUT DSKT_CNTL,AL 

IN AL,DSKT_CNTL ; 

MOV CH,AL ; 

MOV AL,DSKT_NMI+FDC_PWR+DSKT. 

OUT DSKT_CNTL,AL 



_DEGATE+DRO_TRK_SEL+CNTL_SEL 

READ THE TRACK CNTR FOR DR 
CL <-- DRIVE POSITION 
_DEGATE+CNTL_SEL 

READ THE TRACK COUNTER FOR DR 1 
CH <--- DRIVE 1 POSITION 
_DEGATE+RD_CNTL+CNTL_SEL 



RESET THE FDC AND ISSUE SPECIFY COMMAND TO THE FDC 
CH = DRIVE 1 TRACK POSITION, CL= DRIVE 0, BL = DRIVE.SENSE ON NMI ENTRY 



20 



BA 03F2 

EE 

OC 04 

EB 00 

EE 

80 26 003E R 7F 



MOV AL,BL 

AND AL,DRO_MOTOR 

TEST BL,DR1_M0T_SENSE 

JZ NMI_SELM0T 

OR AL,DR1_M0T0R 
NMI_SELMOT: 

OR AL 5 FDC_DMA_ENAB 

TEST BL,DR1_SEL_SENSE 

JZ NMI_SELDR 

OR AL,DR1_SELECT 
NMI_SELDR: 

MOV DX,DRIVE_CNTL 

OUT DX,AL 

OR AL,FDC_RUN 

JMP $ + 2 

OUT DX,AL 

AND SEEK_STATUS,NOT INT. 



SAVE DRO MOTOR STATE 

WAS DRIVE 1 MOTOR ON? 

NO THEN JUMP 

OTHERWISE TURN ON DRIVE 1 MOTOR 

ENABLE DMA/INTERRUPTS BIT 
DRIVE 1 ACTIVE ? 
JUMP IF NOT 



RESET THE ADAPTER 
TURN OFF THE RESET 
TIME DELAY 



_FLAG ; RESET THE INTERRUPT FLAG 



0136 
0137 
013A 
013D 
013E 
0140 
0143 
0143 
0145 
0148 
014B 
014D 
014D 
014F 
0151 
0154 
0157 
015A 
015D 
0160 
0163 
0166 



0169 
016B 
016E 
0170 
0173 



0176 
017C 



FB 

E8 0231 R 

BF 01F4 R 

57 

8B F9 

B9 0004 

B4 08 
E8 0000 E 
E8 0000 E 
E2 F6 



8B CF 
B4 03 
E8 0000 
BB 0001 
E8 0000 
E8 0000 
BB 0003 
E8 0000 
E8 0000 
E8 0222 



B4 07 
E8 0000 
B4 00 
E8 0000 
E8 0222 



STI 

CALL WAIT_INTRPT 

MOV DI, OFFSET RESYNC_0UT2 

PUSH DI 

MOV DI,CX 

MOV CX,4 
NMI_RSETLP: 

MOV AH,READ_INT_STATUS 

CALL NECOUTPUT 

CALL RESULTS 

LOOP NMI_RSETLP 
NMI_SPECIFY: 

MOV CX.DI 

MOV AH, SPECIFY 

CALL NEC_OUTPUT 

MOV BX,1 

CALL GET.PARM 

CALL NECOUTPUT 

MOV BX,03H 

CALL GET_PARM 

CALL NEC_OUTPUT 

CALL DROP.BUSY 



ALLOW INTERRUPTS 

CHECK FOR FDC TO GENERATE AN INT 

ERROR EXIT FOR NEC_OUTPUT 

SAVE TRACK COUNTERS 
READ 4 DRIVES STATUS 

READ INTERRUPT STATUS COMMAND 
SEND IT TO THE FDC 
GET STO AND PCN 
LOOP UNTIL COMPLETE 

RESTORE TRACK COUNTERS 
SPECIFY COMMAND 

FIRST PARM SENT TO THE FDC 



SECOND PARM SENT TO THE FDC 



ISSUE OVERLAPPED RECALS TO DR AND 1 IF INSTALLED 

NOTE SEE WHAT TO DO WITH SEEK_STATUS BIT 7-INTERRUPT RECEIVED 



MOV AH, RECALIBRATE 

CALL NEC_OUTPUT 

MOV AH, 00 

CALL NECOUTPUT 

CALL DROP.BUSY 



FDC 



RECAL COMMAND FOR THE 

OUTPUT IT TO THE FDC 

RECAL DRIVE FIRST 

OUTPUT IT TO THE FDC 

CHK FOR FDC BUSY TO DROP FOR OVLP 



SEE IF THERE IS A SECOND DRIVE IF SO RECAL IT 



F7 06 0010 R 0040 
74 OA 



TEST 
JZ 



EQUIP_FLAG,40H 
RECAL_DONE 



SEE IF SECOND DRIVE IS INSTALLED 
ONLY DRIVE INSTALLED 



ROM BIOS 2-31 



017E 


B4 07 






MOV 


AH, RECALIBRATE 






RECAL COMMAND FOR THE FDC 


0180 


E8 0000 


E 




CALL 


NEC_OUTPUT 






OUTPUT IT TO THE FDC 


0183 


B4 01 






MOV 


AH, 01 






RECAL DRIVE 1 


0185 


E8 0000 


E 




CALL 


NEC_OUTPUT 






OUTPUT IT TO THE FDC 


0188 








RECAL_DONE: 






0188 


E8 0231 


R 




CALL 


WAIT_INTRPT 




; CHK FOR FDC TO GENERATE AN IRPT 


018B 


B4 08 






MOV 


AH,READ_INT_STATUS 


; READ DRIVE STATUS TO THE FDC 


018D 


E8 0000 


E 




CALL 


NEC_OUTPUT 






0190 


E8 0000 


E 




CALL 


RESULTS 






0193 


80 C9 80 




OR 


CL,80H 




; RECAL STATUS REQUESTED FLAG 


0196 


F7 06 001C 


R 0040 


TEST 


EQUIP_FLAG,40H 




; SEE IF TWO DRIVES INSTALLED 


019C 


74 OB 






JZ 


NML.SEEK 






019E 


E8 0231 


R 




CALL 


WAIT_INTRPT 




; CHK FOR FDC TO GENERATE AN IRPT 


01A1 


B4 08 






MOV 


AH,READ_INT_STATUS 


; READ DRIVE STATUS TO THE FDC 


01A3 


E8 0000 


E 




CALL 


NEC_OUTPUT 






01A6 


E8 0000 


E 




CALL 


RESULTS 












ISSUE OVERLAPPED SEEKS TO DR 


AND 


1 IF INSTALLED 


01A9 








NMI_SEEK: 






01A9 


80 El 7F 




AND 


CL,07FH 






TURN OFF THE RECAL SWITCH 


01AC 


B4 OF 






MOV 


AH,SEEK_CMD 






SEEK COMMAND FOR THE FDC 


01AE 


E8 0000 


E 




CALL 


NEC_0UTPUT 






OUTPUT IT TO THE FDC 


01B1 


B4 00 






MOV 


AH, 00 






SEEK DRIVE FIRST 


01B3 


E8 0000 


E 




CALL 


NEC_OUTPUT 






OUTPUT IT TO THE FDC 


01B6 


8A El 






MOV 


AH,CL 






DR TRACK TO SEEK TO 


01B8 


E8 0000 


E 




CALL 


NEC_OUTPUT 






OUTPUT TO THE FDC 


01BB 


E8 0222 


R 




CALL 


DROP_BUSY 






CHK FOR FDC BUSY TO DROP FOR OVLP 








SEE IF 


THERE IS 


A SECOND DRIVE 


IF SO SEEK 


01BE 


F7 06 001C 


R 0040 


TEST 


EQUIP_FLAG,40H 




; SEE IF SECOND DRIVE IS INSTALLED 


01C4 


74 OF 






JZ 


SEEK_DONE 






ONLY DRIVE INSTALLED 


01C6 


B4 OF 






MOV 


AH,SEEK_CMD 






SEEKL COMMAND FOR THE FDC 


01C8 


E8 0000 


E 




CALL 


NECOUTPUT 






OUTPUT IT TO THE FDC 


01CB 


B4 01 






MOV 


AH, 01 






SEEK DRIVE 1 


01CD 


E8 0000 


E 




CALL 


NEC_0UTPUT 






OUTPUT IT TO THE FDC 


01D0 


8A E5 






MOV 


AH,CH 






DR TRACK TO SEEK TO 


01D2 


E8 0000 


E 




CALL 


NEC_OUTPUT 






OUTPUT TO THE FDC 


01D5 








SEEK_DONE: 






01D5 


E8 0231 


R 




CALL 


WAIT_INTRPT 




; CHECK FOR FDC TO GENERATE AN IRPT 








GET THE 


STATUS 


OF THE SEEK AND 


THE 


TRACK VALUE RETURNED FROM THE FDC 


01D8 


B4 08 






MOV 


AH,READ_INT_STATUS 


; READ DRIVE STATUS CMD TO THE FDC 


01DA 


E8 0000 


E 




CALL 


NEC_OUTPUT 






OUTPUT IT TO THE FDC 


01DD 


E8 0000 


E 




CALL 


RESULTS 






GET STO AND PCN FROM THE FDC 








IF A SECOND DRIVE IS INSTALLED 


GET 


ITS RESULTS 


01E0 


F7 06 001C 


R 0040 


TEST 


EQUIP_FLAG,40H 




; SEE IF TWO DRIVES 


01E6 


74 OB 






JZ 


RESYNCOUTl 






01E8 


E8 0231 


R 




CALL 


WAIT_INTRPT 






CHECK FOR FDC TO GENERATE AN IRPT 


01EB 


B4 08 






MOV 


AH,READ_INT_STATUS 




READ DRIVE STATUS COMMAND TO FDC 


01ED 


E8 0000 


E 




CALL 


NEC.OUTPUT 






OUTPUT IT TO THE FDC 


01F0 


E8 0000 


E 




CALL 


RESULTS 






GET STO AND PCN FROM FDC FOR DR B 








SETUP 


TO RETURN TO CALLER THE 


PROPER VALUE IN PORT 77H 


01F3 








RESYNC. 


0UT1: 






01F3 


5E 






POP 


SI 




; DISCARD FDC_OUTPUT ERROR ADDRESS 


01F4 








RESYNC_ 


0UT2: 






01F4 


BO D2 






MOV 


AL,DSKT_NMI+FDC_PWR+RD_CNTL+CNTL_SEL ; TURN OFF DEGATE 


01F6 


E6 77 






OUT 


DSKT_CNTL,AL 












RESTORE THE USERS INTERRUPT VECTOR AND M0T0R_C0UNT 


01 F8 


FA 






CLI 








01F9 


5E 






POP 


SI 




; RETRIEVE VECTOR ADDRESS 


01 FA 


58 






POP 


AX 






01FB 


26: 89 44 


02 


MOV 


ES:[SI+2],AX 




RESTORE VECTOR SEG ADDRESS 


01FF 


58 






POP 


AX 






0200 


26: 89 04 




MOV 


ES:[SI],AX 


; 


REST 


3RE VECTOR OFFSET ADDRESS 



2-32 ROM BIOS 



0203 


58 






POP 


AX 




RETRIEVE MOTOR COUNT 


0204 


A2 


0040 R 


MOV 


MOTOR_COUNT,AL 














ADJUST THE 


STACK POINTER TO 


RETURN TO USER 


0207 








DSKT_RSEXIT: 






0207 


IE 






PUSH 


DS 






0208 


8B 


5E 


12 


MOV 


BX,OFFSAVE[BP] 




GET RETURN OFFSET ADDR 


020B 


8B 


46 


14 


MOV 


AX,SEGSAVE[BP] 




GET RETURN SEGMENT ADDR 


020E 


8E 


D8 




MOV 


DS,AX 






0210 


4B 






DEC 


BX 




POINT BACK TO INSTR 


0211 


8A 


07 




MOV 


AL,[BX] 




GET INSTRUCTION BYTE 


0213 


IF 






POP 


DS 






0214 


3C 


EC 




CMP 


AL,IN_INSTR 




IN AL,DX INSTRUCTION? 


0216 


74 


04 




JE 


DSKT_RTN_ADJ 




YES THEN ADJUST RETURN 


0218 


3C 


EE 




CMP 


AL,OUT_INSTR 




OUT DX,AL INSTRUCTION? 


021A 


75 


03 




JNE 


RTN_EXITNMI 




NO THEN DO NOT ADJUST RTN 


021C 








DSKT_RTN_ADJ : 






021C 


FF 


4E 


12 


DEC 


OFFSAVE[BP] 




SETUP TO REISSUE THE I/O F 


021F 








RTN_EXITNMI: 






021F 


E9 


0050 R 


JMP 


NMIH_EXIT 




RETURN TO NMI_FLIH 










THIS ROUTINE WILL WAIT FOR THE 


FDC TO DROP BUSY 


0222 








DROP_BUSY PROC NEAR 






0222 


51 






PUSH 


CX 




SAVE REGISTER VALUE 


0223 


BA 


03 F4 


MOV 


DX,FDC_STATUS 




POINT TO MASTER STATUS POR 


0226 


2B 


C9 




SUB 


CX,CX 




TIMING COUNT FOR LOOP 


0228 








WAIT_BUSY: 






0228 


EC 






IN 


AL,DX 




READ THE MASTER PORT 


0229 


A8 


10 




TEST 


AL,FDC_BUSY 




TEST FOR BUSY TO DROP 


022B 


74 


02 




JZ 


FDC_DONE 




FDC NO LONGER IS BUSY 


022D 


E2 


F9 




LOOP 


WAIT_BUSY 






022F 








FDC_DONE: 






022F 


59 






POP 


CX 




RESTORE ORIGINAL VALUE 


0230 


C3 






RET 








0231 








DROP_BUSY ENDP 














THIS ROUTINE WILL WAIT FOR AN INTERRUPT 


FROM THE FDC 


0231 








WAIT_INTRPT PROC NEAR 






0231 


51 






PUSH 


CX 






0232 


53 






PUSH 


BX 




SAVE BX 


0233 


B3 


04 




MOV 


BL,4 




2 SECONDS WAIT 


0235 


2B 


C9 




SUB 


CX,CX 




TIMING COUNT FOR LOOP 


0237 








WAIT_INT: 






0237 


F6 


06 


003f 


I R 80 TEST 


SEEK_STATUS,INT_ 


.FLAG 


WAIT FOR AN INTERRUPT 


023C 


75 


06 




JNZ 


FDCINTRPT 




FDC GENERATED AN INTERRUPT 


023E 


E2 


F7 




LOOP 


WAIT_INT 






0240 


FE 


CB 




DEC 


BL 






0242 


75 


F3 




JNZ 


WAIT_INT 




WAIT ON INTERRUPT 


0244 








FDC.INTRPT: 






0244 


80 


26 


0031 


I R 7F AND 


SEEK_STATUS,NOT 


INT_FLA( 


5 ; RESET THE INTERRUPT FLAG 


0249 


5B 






POP 


BX 




RESTORE BX 


024A 


59 






POP 


CX 






024B 


C3 






RET 








024C 








WAIT_INTRPT ENDP 






024C 








DSKT.RESYNC ENDP 







DSKT_INTE 

THIS ROUTINE HANDLES THE DISKETTE INTERRUPT 



INPUT: NONE 

OUTPUT: THE INTERRUPT FLAG SET IS SEEK_STATUS 



024C 




DSKT_NMIE 


PROC FAR 


024C 


IE 


PUSH 


DS 


024D 


50 


PUSH 


AX 


024E 


B8 R 


MOV 


AX, DATA 


0251 


8E D8 


MOV 


DS.AX 


0253 


80 OE 003E R 80 


OR 


SEEK_STATUS,INT_FLAG 



; SET UP DATA SEGMENT 



ROM BIOS 2-33 



0258 


BO 20 


MOV 


AL.EOI 


025A 


E6 20 


OUT 


INTAOO,AL 


025C 


58 


POP 


AX 


02 5D 


IF 


POP 


DS 


025E 


CF 


IRET 




025F 




DSKT_NMIE 


ENDP 



END OF INTERRUPT MARKER 
INTERRUPT CONTROL PORT 



RECOVER SYSTEM 
RETURN FROM INTERRUPT 



INCLUDE KYBDNMI.INC 

MODULE- NAME: KYBDNMI.INC 

DATE LAST MODIFIED: 09/12/1985 

DESCRIPTIVE-NAME: THIS MODULE CONTAINS THE BIOS KYBD NMI INTERRUPT 
HANDLER AND THE ASSOCIATED KEY SCAN CODE TRANSLATION 
ROUTINES. 

COPYRIGHT: 7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 

CHANGE LEVEL: 0.0 

FUNCTION: KYBD_PREP - KEYBOARD SCAN CODE NMI ROUTINE 
KYBD_CLR - KEYBOARD CLEAR NMI ROUTINE 
KYBD_XLT - KEYBOARD SCAN CODE TRANSLATION ROUTINE 

MODULE SIZE: 816 BYTES 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: TO PROCESS A KEYSTROKE 

INPUT CONDITIONS: N/A 

RESTRICTIONS: N/A 

INTERNALLY REFERENCED ROUTINES: 

KYBD_XLT SCAN CODE TRANSLATION 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: KEYSTROKE PROCESSED 
ERROR EXIT CONDITIONS: N/A 
REGISTERS MODIFIED: NONE 

INTERNAL DATA AREAS / TABLES: NONE 

EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 

EXTERNALLY REFERENCED DATA AREAS: REFER TO EXTRN LIST 

CHANGE ACTIVITY: NONE 

k^***********************************************^ 

KEYBOARD EXTERNALS 
t ***************************************************** ************* 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



KBPAD_TBL:WORD 

KBPADL:ABS 

KBFUN_TBL:WORD 

KBFUNL:ABS 

KBNMI_TBL:BYTE 

KB_NOISE:NEAR 



2-34 ROM BIOS 



Keyboard Data NMI (KBNMI-DATA) 



007D 
0000 
004B 
0038 
0008 

0080 
0057 



LOCAL EQUATES FOR KEYBOARD NMI PROCESSING 



KBNMI_DATA 

N0_H0LD 

NMI_SLASH_SC 

P60_ALT_SC 

NMI_R_ALT_BIT3 

BREAK_BIT 
P60_F11_SC 



EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 



7DH 
OOH 
4BH 
038H 
08H 

80H 
057H 



KEYBOARD NMI SCAN CODE INPUT PORT 
VAL OF P60_HOLD_BYTE FOR NOT Q'D 
SCAN CODE FOR / MAKE AT NMI LEVEL 
SCAN CODE FOR ALT AT P60 LEVEL 
USED TO DENOTE LEFT & RIGHT 
ALT NMI SC. R-ALT HAS THIS BIT SET. 
USED TO TST AND SET BRK BIT OF SCs 
Fll MAKE SC FOR P60 



******************************************************************* 
KYBD_PREP - KEYBOARD SCAN CODE NMI PROCESSING 

DESCRIPTION: 

THIS ROUTINE IS JUMPED TO FROM THE FIRST LEVEL NMI INTERRUPT HANDLER 
WHEN THE INTERRUPT IS THE RESULT OF A KEYSTROKE. A CLICK IS SOUNDED 
WHEN A KEY SCAN CODE 'MAKE' IS RECEIVED AND THE CLICK STATE IS ON. 

THE SCAN CODE IS READ THEN TESTS ARE MADE TO SEE IF THE BUFFER IS 
EMPTY AND PORT 60 IS NOT ACTIVE. IF THESE 2 CONDITIONS ARE MET A CALL 
IS MADE TO THE XLATE ROUTINE WITH THE KEY SCAN CODE IN AL. ELSE THE 
SCAN CODE IS BUFFERED IN THE 16 POSITION NMI SCAN CODE BUFFER AT THE 
BUFFER TAIL. IF PORT 60 IS NOT ACTIVE A CALL IS MADE TO THE XLATE 
ROUTINE WITH THE KEY SCAN CODE TO BE TRANSLATED AT THE BUFFER HEAD. 

THE FIRST LEVEL NMI INTERRUPT HANDLER SAVES REGISTERS AND MOVES THE 
ADDRESS OF "DATA" TO THE DS REGISTER BEFORE IT JUMPS TO THIS ROUTINE. 
ON EXIT THE FIRST LEVEL INTERRUPT HANDLER RESTORES REGISTERS. 

INPUT: DATA IN PORT 7DH 
DS = DATA (40H) 

OUTPUT: STORE SCAN CODE INTO KB_NMI_BUFFER 
UPDATE KB_NMI_HEAD _TAIL 
SAVE LAST_CLICK_KEY 

INTERNAL ROUTINES: KYBD.XLT 

EXTERNAL ROUTINES: SPKR_ON, KB_NOISE, SPKR_RESTORE 

REGISTERS MODIFIED: N/A 

INTERRUPTS: LEFT AS ARE 

KYBD NMI INITIALLY DISABLED, ENABLED BEFORE EXIT 

NORMAL EXIT: JMP NMIH.EXIT 
******************************************************************* 



025F 



KYBD_PREP PROC 



NEAR 



025F IE 
0260 07 



0261 



ASSUME DS:DATA 

ASSUME ES:DATA 

PUSH DS 

POP ES ; DATA POINTER TO ES 

PREP10: 

ENABLE DISPLAY IF DISABLED BY KEYBOARD INACTIVITY 



0261 F6 06 0016 R 80 
0266 74 OF 



TEST 
JZ 



BIOS_STATUS,DSP_BLANKED ; IS LCD BLANKED? 
PREP_12 



; RESET BLANKED FLAG AND ENABLE DISPLAY 



ROM BIOS 2-35 



0268 


80 26 0016 


R 7F AND 


026D 


BO 00 


MOV 


026F 


E6 74 


OUT 


0271 


E4 75 


IN 


0273 


OC 60 


OR 


0275 


E6 75 


OUT 
SET KEYBOARD AC 


0277 




PREP_12: 


0277 


80 OE 0016 


R 20 OR 


027C 


80 26 0015 


R BF AND 



BIOS_STATUS,NOT DSP_BLANKED ; RESET FLAG 

AL,0 

LCD_INDX,AL 

AL,LCD_DATA ; GET DISPLAY CONTROL REG 

AL,SYNC_ENABLE+PANEL_ENABLE ; TURN ON PANEL 

LCD_DATA,AL 



BIOS_STATUS,KYBD_ACTIVE ; INDICATE KEYBOARD IS ACTIVE 
BAT_STATUS,N0T L0W_BAT_H0LD ; RESET LOW BTRY HOLD FLAG 



A KEYBOARD DATA READY NMI OCCURED. 
READY NMI REQUEST. 



READING THE DATA RESETS THE DATA 



0281 E4 7D 



IN 



AL,KBNMI_DATA 



READ SCAN CODE 



DETERMINE IF A KEY STROKE CLICK IS REQUIRED FOR THIS KEY. 

A CLICK IS SOUNDED ON THE MAKE OF ALL KEYS EXCEPT THE MAKES OF KEYS 

THAT ARE GENERATED BY TYPAMATIC MODE. 



IS THIS A 'MAKE' SCAN CODE ? 
YES, GO TO CLICK PROCESSING 



0283 


A8 


80 






TEST 


AL,BREAK_BIT 


0285 


74 


07 




ALLOW 


JZ 
ANY BREAK 


PREP20 
KEY TO CLEAR LAST_CLIC 


0287 


C6 


06 


OOBA 


R 00 


MOV 


LAST_CLICK_KEY,0 


028C 


EB 


23 






JMP 


SHORT PREP29 


028E 










PREP20: 




028E 


38 


06 


OOBA 


R 


CMP 


LAST_CLICK_KEY,AL 


0292 


74 


ID 




FIRST 


JE 
KEY HIT - 


PREP29 
NOT TYPAMATIC 


0294 


A2 


OOBA r' 




MOV 


LAST_CLICK_KEY,AL 


0297 


F6 


06 


00B4 


R 08 


TEST 


KB_NMI_CNTL,CLICK_ON 


029C 


74 


13 






JZ 


PREP29 


029E 


BB 


0001 




MOV 


BX,1H 


02A1 


B9 


0020 




MOV 


CX,20H 


02A4 


8A 


DO 






MOV 


DL,AL 


02A6 


E8 


0759 R 




CALL 


SPKR_0N 


02A9 


E8 


0000 E 




CALL 


KB_NOISE 


02AC 


E8 


0762 R 




CALL 


SPKR_RESTORE 


02AF 


8A 


C2 






MOV 


AL,DL 










PROCESS KEY 




02B1 










PREP29: 




02B1 


8A 


2E 


OOBB 


R 


MOV 


CH,KB_NMI_HEAD 


02B5 


8A 


OE 


OOBC 


R 


MOV 


CL,KB_NMI_TAIL 


02B9 


FE 


CI 






INC 


CL 


02BB 


80 


F9 


10 




CMP 


CL,KB_NMI_BLTH 


02BE 


72 


02 






JB 


PREP50 


02C0 


Bl 


00 






MOV 


CL,0 


02C2 










PREP50: 




02C2 


3A 


E9 






CMP 


CH,CL 


02C4 


75 


12 






JNE 


PREP60 










KEYBOARD NMI BUFFER OVERFLOW 


02C6 


C6 


06 


OOBB 


R 00 


MOV 


KB_NMI_HEAD,0 


02CB 


C6 


06 


OOBC 


R 01 


MOV 


KB_NMI_TAIL,1 


02D0 


C6 


06 


OOBD 


R FF 


MOV 


KB_NMI_BU.FFER.OFFH 


02D5 


EB 


OF 


90 




JMP 


PREP70 



; YES, CLEAR LAST_CLICK_KEY 
; GO TO BUFFER PROCESSING 



T-MATIC KEY IF = TO LAST KEY MAKE 
IF TYPAMATIC SKIP CLICK 



THIS KEY IS NOW LAST_CLICK_KEY 

; IS AUDIO FEEDBACK ENABLED ? 
NO, GO TO BUFFER PROCESSING 
DURATION OF CLICK 
FREQUENCY OF CLICK 
SAVE KEYSTROKE 
FORCE SPEAKER ON 
OUTPUT KEY STROKE CLICK 
RESTORE SPEAKER STATE 
RESTORE AL 



BUFFER HEAD TO CH 

BUFFER TAIL TO CL - 

INCREMENT TAIL POINTER 

IS CL = END OF BUFFER +1 

JUMP IF NOT PAST END OF BUFFER 

PAST END - SET TO START 



HAS TAIL REACHED HEAD - OVERFLOW 
JUMP IF NOT OVERFLOW 



BUFFER OVERFLOW - PURGE BUFFER 
POSITION FOR OVERFLOW INDICATOR 
OVERFLOW INDICATOR TO BUFFER HEAD 



2-36 ROM BIOS 



NO OVERFLOW 



02D8 
02D8 
02DA 
02DE 
02E2 



B7 00 

8A IE OOBC R 
88 87 OOBD R 
88 OE OOBC R 



PREP60: 
MOV 
MOV 
MOV 
MOV 



BH,0 ; CLEAR BH 

BL,KB_NMI_TAIL ; MOV ORIGINAL TAIL POINTER TO BL 
KB_NMI_BUFFER[BX],AL ; BUFFER S/C AT ORIGINAL TAIL POINTER 
KB_NMI_TAIL,CL ; UPDATE TAIL POINTER 



ATTEMPT TO DEQUEUE KEYSTROKE AND TRANSLATE 



02E6 PREP70: 

02E6 F6 06 00B4 R 10 TEST 

02EB 75 06 JNZ 

02ED E8 0319 R CALL 

02F0 E9 0050 R JMP 



KB_NMI_CNTL,XLATE_BUSY ; IS A XLATION ALREADY IN PROGRESS? 



PREP90 

KYBD_XLT 

NMIH_EXIT 



JUMP IF ACTIVE 

XLATE AND WRITE TO PORT 60 

EXIT KEYBOARD DATA ROUTINE 



02F3 

02F3 E9 0050 R 



PREP90: 
JMP 



NMIH_EXIT 



GO TO 1ST LEVEL INTERRUPT HANDLER 



02F6 



KYBD_PREP ENDP 



PROCEDURE END 



Keyboard Clear NMI (KYBD.CLR) 



02F6 



02F6 IE 
02F7 07 



******************************************************************* 
KYBD_CLR - KEYBOARD CLEAR NMI PROCESSING 

DESCRIPTION: 

THIS ROUTINE IS JUMPED TO FROM THE FIRST LEVEL NMI INTERRUPT HANDLER 
WHEN THE INTERRUPT IS THE RESULT OF PORT 60 BEING CLEARED. 

A BUFFER EMPTY TEST IS MADE TO DETERMINE IF THERE ARE MORE KEY 
SCAN CODES TO BE XLATED. IF THE BUFFER IS NOT EMPTY A CALL IS MADE TO 
THE XLATE ROUTINE TO PROCESS THE KEY AT THE BUFFER HEAD. 

THE FIRST LEVEL NMI INTERRUPT HANDLER SAVES REGISTERS AND MOVES THE 
ADDRESS OF "DATA" TO THE DS REGISTER BEFORE IT JUMPS TO THIS ROUTINE. 
ON EXIT THE FIRST LEVEL INTERRUPT HANDLER RESTORES REGISTERS. 

INPUT: P60_H0LD_BYTE 

OUTPUT: P60_H0LD_BYTE RESET 
P60_L0ADED RESET 
CLR_KEYBD OF PORT 61H RESET 

INTERNAL ROUTINES: KYBD_XLT 
EXTERNAL ROUTINES: NONE 

REGISTERS MODIFIED: N/A 

INTERRUPTS: LEFT AS ARE 

NORMAL EXIT: JMP NMIH_EXIT 
******************************************************************* 

KYBD_CLR PROC NEAR 

ASSUME DS:DATA 

ASSUME ES:DATA 

PUSH DS 

POP ES ; DATA POINTER TO ES 



ROM BIOS 2-37 



THIS NMI IS A RESULT OF INT9 CLEARING THE KEYBOARD INDICATING THAT 
THE PORT 60 SCAN CODE HAS BEEN READ AND IS READY TO ACCEPT ANOTHER. 



KEYPAD /, * AND RIGHT-ALT NMI SCAN CODES GENERATE TWO CODES FOR PORT 60. 
KYBD_XLT SENDS THE FIRST (HIDDEN CODE) DIRECTLY AND QUEUES THE SECOND 
(P60 SCAN CODE) IN P60_H0LD_BYTE. IF P60_H0LD_BYTE IS HOLDING, IT MUST 
BE SENT TO P60 AS SOON AS P60 IS EMPTY. 

02F8 AO 00B9 R MOV AL,P60_H0LD_BYTE ; GET HOLD BYTE 

02FB 3C 00 CMP AL,NO_HOLD ; IS A SCAN CODE QUEUED? 

02FD 74 09 JE KC10 ; NO, JUMP. 

02FF E6 60 OUT KB_DATA,AL ; HELD SCAN CODE TO P60 

0301 C6 06 00B9 R 00 MOV P60_H0LD_BYTE,N0_H0LD ; RESET HOLD BYTE 

0306 EB 05 JMP SHORT KC20 ; LEAVE P60J.0ADED SET 

0308 80 26 00B4 R 7F KC10: AND KB_NMI_CNTL,NOT P60_L0ADED ; SET OFF PRT 60 ACT 

RESET CLEAR KEYBOARD NMI SOURCE 

KC20: IN AL,NMI_CNTL 
AND AL,NOT CLR_KEYBD 
OUT NMI_CNTL,AL 



030D E4 61 
030F 24 7F 
0311 E6 61 



; GET NMI CONTROL PORT 
; SET CLEAR KYBD BIT TO 



CALL TRANSLATE TO SEE IF ANYTHING IN QUEUE AND TRANSLATE IF SO 



0313 E8 0319 R 
0316 E9 0050 R 



CALL 
JMP 



KYBD_XLT 
NMIH_EXIT 



; XLATE AND WRITE TO PORT 60 

; GO TO 1ST LEVEL INTERRUPT HANDLER 



0319 



KYBD_CLR ENDP 



PROCEDURE END 



Translate Scan Code (KYBD.XLT) 



******************************************************************* 

KYBD_XLT - KEYBOARD SCAN CODE XLATE ROUTINE 

DESCRIPTION: 

IF THE SCAN CODE BUFFER IS EMPTY OR PORT 60H IS LOADED AT ENTRY 
THEN THIS ROUTINE ENABLES KEYBOARD NMI AND EXITS. 
IF THE BUFFER IS NOT EMPTY THE NEXT ENTRY IN THE 
SCAN CODE BUFFER IS PROCESSED. THE SCAN CODE IS TRANSLATED TO THE 
PCI EQUIVALENT AND THE PCI SCAN CODE IS WRITTEN TO PORT 60. HARDWARE 
WILL GENERATE A SET HARDWARE INTERRUPT 1 REQUEST WHEN PORT 60 IS 
WRITTEN. IF THE TRANSLATION DOES NOT RESULT IN A PORT 60 LOAD THEN 
OTHER KEYS IN THE QUEUE ARE PROCESSED IF ANY. 

INPUT: KB_NMI_BUFFER 

OUTPUT: WRITE TO PORT 60H 

INTERNAL ROUTINES: NUM_STATE_FIX 
EXTERNAL ROUTINES: NMI_CYCLE 

REGISTERS MODIFIED: N/A 



INTERRUPTS: I FLAG RESTORED TO PRE-NMI STATE 
KYBD_NMI ENABLED 



NORMAL EXIT: RET 
*********************************************** 



0319 



KYBD_XLT PROC 



NEAR 



2-38 ROM BIOS 



0319 
0319 



031C 
0321 



0323 
0327 
032B 



0333 
0338 
03 3 A 
033E 
0340 
0343 
0345 

0347 
0347 



ASSUME 
ASSUME 



DSrDATA 
ES : DATA 



SCAN CODE BUFFER PROCESSING 



E8 0000 E 



F6 06 00B4 
75 OD 



8A IE OOBB 
3A IE OOBC 
75 06 



R 80 



XLT10: 
CALL 



TEST 
JNZ 



DISABLE_NMI 



DISABLE ALL INTERRUPTS 



KB_NMI_CNTL,P60_L0ADED ; IS PORT 60 CURRENTLY LOADED? 
XLT13 ; YES THEN EXIT THE ROUTINE 



PORT 60 IS NOT LOADED SO CHECK QUEUE FOR ANY KEYS 



MOV 
CMP 
JNE 



BL,KB_NMI_HEAD 
BL,KB_NMI_TAIL 
XLT14 



BUFFER HEAD DISPLACEMENT 

IS BUFFER EMPTY 

YES, GO TO BUFFER EMPTY ENTRY 



032D E8 0524 R 



0330 E9 0523 R 



PORT 60 IS NOT LOADED AND NO KEYS IN QUEUE SO FIX NUMJ.OCK STATUS 
AND EXIT 

CALL NUM_STATE_FIX ; MAKE NUM_STATE = KEYPAD_STATE 

RE-ENABLE KEYBOARD NMIS AND EXIT THE ROUTINE 

XLT13: JMP XLT100 

DEQUEUE THE SCAN CODE FROM THE NMI QUEUE 



80 OE 00B4 
B7 00 

8A 87 OOBD 
FE C3 
80 FB 10 
72 02 
B3 00 



88 IE OOBB R 



R 10 
R 



XLT14: OR 
MOV 
MOV 
INC 
CMP 
JB 
MOV 

XLT15: 
MOV 



KB_NMI_CNTL,XLATE_BUSY ; SET KEY XLATE IN PROCESS 



BH,0 

AL,KB_NMI_BUFFER[BX] 

BL 

BL,KB_NMI_BLTH 

XLT15 

BL,0 



KB_NMI_HEAD,BL 



CLEAR BH - BL IS BUFFER HEAD DISP 
; GET SCAN CODE FROM BUFFER 
INCREMENT HEAD POINTER 
IS BL = END OF BUFFER +1 
JUMP IF NOT PAST END OF BUFFER 
PAST END - SET TO START 



UPDATE BUFFER HEAD 



START OF SCAN CODE TRANSLATION 

ENABLE NMIS AND RESTORE INTERRUPT STATE TO PRE-NMI CONDITION 



034B 


E8 


076 E R 






CALL 


NMI_CYCLE 


034E 


8A 


EO 






MOV 


AH,AL 


0350 


3C 


FF 






CMP 


AL,OFFH 


0352 


75 


14 






JNE 


XLT18 








KEYBOARD 


OVERRUN 


DETECTED 


0354 


C7 


06 00B5 


R 0000 




MOV 


B_PEND1,0 


03 5 A 


C7 


06 00B7 


R 0000 




MOV 


B_PEND2,0 


0360 


80 


26 00B4 


R BF 




AND 


KB_NMI_CNTL,N0T 


0365 


E9 


050C R 






JMP 


XLT90 






I 


CHECK 


IF 


SC IS FOR A BASE KEY ONLY 


0368 








XLT18: 




0368 


80 


E4 80 






AND 


AH,BREAK_BIT 


036B 


8A 


DO 






MOV 


DL,AL 


036D 


24 


7F 






AND 


AL,NOT BREAK_BIT 


036F 


8D 


IE 0000 


E 




LEA 


BX,KBNMI_TBL 


0373 


2E 


D7 






XLAT 


KBNMI_TBL 


0375 


A8 


80 






TEST 


AL,80H 


0377 


75 


03 






JNZ 


XLT19 


0379 


E9 


04DE R 






JMP 


XLT60_1 



; CYCLE NMI MASK, RESTORE INT FLAGS 

AH <=== ORIGINAL NMI SC 

KEYBOARD OVERRUN ? 

NO, GO LOOK FOR FUNCTION KEY 



RESET BREAK PENDING FLAGS 

RESET BREAK PENDING FLAGS 

STATE ; CLEAR FUNCTION STATE 

OVERRUN, GO WRITE PORT 60 



AH <=== BREAK BIT OF NMI SC 

DL <=== ORIGINAL NMI SC 

AL <=== NMI SC W/0 BREAK BIT 

SCAN CODE TABLE - NMI TO PCI 

XLATE NMI SC TO PCI SC 

BASE KEY ONLY? 

NO, JUMP AROUND 

YES, JUMP TO BASE KEY PROCESS 



IF THIS IS THE FUNCTION KEY, SET/RESET FUNCTION STATE 



ROM BIOS 2-39 



037C 
037E 
0380 
0382 
0384 
0387 
0389 
038E 
0391 
0391 
0396 



8A C2 
24 7F 
3C 52 
75 15 
F6 C4 80 
74 08 

80 26 00B4 
E9 051B R 

80 0E 00B4 
E9 051B R 



R BF 



R 40 



XLT19: MOV AL,DL ; AL <=== ORIGINAL NMI SC 

AND AL,NOT BREAK_BIT ; AL <=== NMI SC W/0 BREAK BIT 

CMP AL,FN_KEY ; FUNCTION KEY ? 

JNE XLT23 ; NO, 60 PROCESS FUNCTION + KEYS 

TEST AH,BREAK_BIT ; FUNCTION KEY MAKE ? 

JZ XLT20 ; JUMP IF MAKE 

AND KB_NMI_CNTL,NOT FUNC_STATE ; BREAK, CLEAR FUNCTION STATE 

JMP XLT.95 ; GO TO RETURN 

XLT20: 

OR KB_NMI_CNTL,FUNC_STATE ; MAKE, SET FUNCTION STATE 

JMP XLT95 ; GO TO RETURN 



FUNCTION + KEYS PROCESSING 

IF FUNCTION STATE IS ACTIVE SEARCH THE FUNCTION TABLE FOR A MATCH. 
IF THERE IS BREAK PENDING AND THIS KEY IS A BREAK KEY SEARCH THE 
FUNCTION TABLE FOR A MATCH. 



0399 






XLT23: 




0399 


F6 06 00B4 R 


40 


TEST 


KB_NMI_CNTL,FUNC_STA7 


039E 


75 OC 




JNZ 


XLT24 ; 


03A0 


83 3E 00B7 R 


00 


CMP 


B_PEND2,0 ; 


03A5 


74 IE 




JE 


XLT27 ; 


03A7 


F6 C4 80 




TEST 


AH,BREAK_BIT 


03AA 


74 19 




JZ 


XLT27 ; 


03AC 






XLT24: 




03AC 


B9 0001 




MOV 


CX,01H ; 


03AF 


BE 0000 E 




MOV 


SI, OFFSET KBFUNL ; 


03B2 






XLT25: 




03B2 


83 EE 02 




SUB 


SI, 2 ; 


03B5 


2E: 8B 9C 0000 E 


MOV 


BX,KBFUN_TBL[SI] ; 


03 BA 


3A C7 




CMP 


AL,BH ; 


03 BC 


74 OA 




JE 


XLT-28 ; 


03BE 


Dl El 




SHL 


CX,1 ; 


03C0 


83 FE 00 




CMP 


SI,0 ; 


03C3 


75 ED 




JNE 


XLT25 ; 




; THIS 


KEY IS NOT 


A FUNCTION + KEY. 


03C5 






XLT27: 




03C5 


E9 0463 R 




JMP 


XLT40 ; 



YES, GO SEARCH TABLE 

BREAK PENDING ? 

NO, GO CHECK FOR KEYPAD STATE 

YES, TEST FOR BREAK KEY 

MAKE KEY - GO CHK KEYPAD STATE 

INIT KEYS BREAK PENDING FLAG 
TABLE LENGTH 

SEARCH FUNCTION TABLE FOR MATCH 

BH <=== NMI SC ENTRY 

BL <=== P60 EXTENDED SC 

CHECK FOR MATCH 

JMP IF MATCH FOUND 

CX <=== SEARCH KEY BRK PEND FLAG 

IS SEARCH COMPLETE ? 

NO, GO CHECK NEXT ENTRY 



GO TO KEYPAD SEARCH 



A MATCH HAS BEEN FOUND IN THE FUNCTION STATE TABLE. THE TABLE CONTAINS 
FOUR, FN + CURSOR KEYS; FN + Fl OR F2; AND FOUR, STATE TOGGLE KEYS. 
THE STATE, CURSOR, AND Fl, F2 KEYS ARE: 
STATE KEYS CURSOR, Fl, F2 KEYS 



FN 
FN 
FN 
FN 



SCRL LOCK 
CAPS LOCK 
NUM LOCK 
ESC 



= SPEAKER ON/OFF 
= CLICKER ON/OFF 
= KEYPAD ON/OFF 
= SYS REQ 

FN + 
FN + 



Fl 
F2 



FN 
FN 
FN 
FN 
= Fll 
= F12 



<- = HOME 

T = PGUP 

- = END 

J. = PGDN 



THE FUNCTION STATE TABLE MAPS FUNCTION 



THE FUNCTION STATE TABLE MAPS 



+ STATE KEYS TO A BIT. 

01H = SPEAKER ON/OFF 
02H = CLICKER ON/OFF 
04H = KEYPAD ON/OFF 
08H = SYS REQ 



FUNCTION + CURSOR KEYS TO 
EXTENDED SCAN CODES. 

IT ALSO MAPS FUNCTION + F1,F2 
TO EXTENDED SCAN CODES FOR 
F11.F12. 



03C8 




XLT28: 






03C8 


F6 C4 80 


TEST 


AH,BREAK_BIT 


PROCESSING BREAK SC? 


03CB 


74 09 


JZ 


XLT28A 


NO, JMP 


03CD 


85 OE 00B7 R 


TEST 


CX,B_PEND2 


BREAK PENDING FOR THIS SPECIFIC SC 


03D1 


75 03 


JKZ 


XLT28A 


YES, JMP TO RESET 


03D3 


E9 04D6 R 


JMP 


XLT60 


NO, PROCESS AS BASE KEY 



2-40 ROM BIOS 



03D6 








XLT28A: 






03D6 


80 


FB 08 




CMP 


BL,08H 


IS THIS A STATE CHANGE KEY ? 


03D9 


77 


57 




JA 


XLT36 


JUMP TO CUR KEYS IF NOT STATE CHG 


03DB 


80 


FB 08 




CMP 


BL,08H 


SYSTEM REQUEST KEY ? 


03DE 


74 


3B 




JE 


XLT33 


YES, GO PROCESSES SYSTEM REQUEST 


03E0 


F6 


C4 80 




TEST 


AH,BREAK_BIT 


MAKE KEY ? 


03E3 


74 


07- 




JZ 


XLT29 


YES, GO SET BREAK PENDING 


03E5 


31 


0E-00B7 


R 


XOR 


B_PEND2,CX 


BREAK KEY - RESET BRK PEND FLAG 


03E9 


E9 


051B R 




JMP 


XLT95 


GO TO RETURN 


03EC 








XLT29: 






03EC 


85 


OE 00B7 


R 


TEST 


B_PEND2,CX 


IS BREAK ALREADY PENDING 


03 FO 


75 


26 




JNZ 


XLT32 


TYPAMATIC INVALID FOR STATE KEY 


03F2 


09 


OE 00B7 


R 


OR 


B_PEND2,CX 


SET KEYS BREAK PENDING FLAG 


03F6 


80 


FB 01 




CMP 


BL,01H 


SPEAKER STATE KEY ? 


03 F9 


75 


09 




JNE 


XLT30 


NO, GO TEST FOR CLICK STATE 


03FB 


E4 


61 




IN 


AL,NMI_CNTL 


READ SPEAKER CONTROL PORT 


03FD 


34 


04 




XOR 


AL,EN_SPKR 


TOGGLE ENABLE SPEAKER STATE 


03FF 


E6 


61 




OUT 


NMI_CNTL,AL 


WRITE SPEAKER CONTROL PORT 


0401 


E9 


051B R 




JMP 


XLT95 


GO TO RETURN 


0404 








XLT30: 






0404 


80 


FB 02 




CMP 


BL,02H 


CLICK STATE KEY ? 


0407 


75 


08 




JNE 


XLT31 


NO, GO TOGGLE KEYPAD STATE 


0409 


80 


36 00B4 


R 


08 XOR 


KB_NMI_CNTL,CLICK_ON 


; TOGGLE CLICK STATE 


040E 


E9 


051B R 




JMP 


XLT95 


GO TO RETURN 


0411 








XLT31: 






0411 


30 


IE 00B4 


R 


XOR 


KB_NMI_CNTL,BL 


TOGGLE KEYPAD STATE 


0415 


E8 


0524 R 




CALL 


NUM_STATE_FIX 


MAKE NUM_STATE RFCT KEYPAD_STATE 


0418 


E9 


051B R 




XLT32: 


JMP XLT95 


GO TO RETURN 








SYSTEM REQUEST 


KEY PROCESSING 




041B 








XLT33: 






041B 


F6 


C4 80 




TEST 


AH,BREAK_BIT 


IS THIS A REQUEST KEY MAKE ? 


041E 


75 


09 




JNZ 


XLT34 


NO, GO RESET BREAK PENDING FLAG 


0420 


09 


OE 00B7 


R 


OR 


B_PEND2,CX 


YES, SET KEYS BREAK PENDING FLAG 


0424 


BO 


54 




MOV 


AL,SYSREQ_MAKE 


SET AL TO SYSTEM REQUEST MAKE 


0426 


E9 


050C R 




JMP 


XLT90 


GO WRITE TO PORT 60 


0429 








XLT34: 






0429 


31 


OE 00B7 


R 


XOR 


B_PEND2,CX 


BREAK KEY - RESET BRK PEND FLAG 


042D 


BO 


D4 




MOV 


AL,SYSREQ_BREAK 


SET AL TO SYSTEM REQUEST BREAK 


042F 


E9 


050C R 




JMP 


XLT90 


GO WRITE TO PORT 60 






\ 


IF 


HERE, MUST BE FN + CURSOR KEY, OR 


: N + Fl, F2 


0432 








XLT36: 






0432 


8A 


C3 




MOV 


AL,BL 


AL <=== PCI EXTENDED SC FROM TBL 


0434 


80 


FB 57 




CMP 


BL,P60_F11_SC 


FN + Fl, F2? 


0437 


73 


15 




JAE 


XLT38 


YES, JUMP 








FUNCTION + CURSOR KEYS - HOME, PGUP, 


END, PGDN 


0439 


F6 


C4 80 




TEST 


AH,BREAK_BIT 


CURSOR KEY BREAK ? 


043C 


74 


09 




JZ 


XLT37 


NO, GO SET BREAK PENDING FLAG 


043E 


31 


OE 00B7 


R 


XOR 


B_PEND2,CX 


BREAK KEY - RESET BREAK PEND FLAG 


0442 


OC 


80 




OR 


AL,BREAK_BIT 


SET BREAK IN PCI SCAN CODE 


0444 


E9 


04FB R 




JMP 


XLT80 


GO RESET PORT 60 KEYPAD STATE 


0447 








XLT37: 






0447 


09 


OE 00B7 


R 


OR 


B_PEND2,CX 


SET KEYS BREAK PENDING FLAG 


044B 


E9 


04FB R 




JMP 


XLT80 


GO RESET PORT 60 KEYPAD STATE 








FUNCTION + Fl 


(Fll) P60-SC: 


: 11 MAKE = 57H Fll BREAK = D7H 








FUNCTION + F2 


(F12) 


•12 MAKE = 58H F12 BREAK = D8H 


044E 








XLT38: 






044E 


F6 


C4 80 




TEST 


AH,BREAK_BIT 


MAKE KEY? 


0451 


74 


09 




JZ 


XLT38_1 


YES, JUMP 


0453 


OA 


C4 




OR 


AL,AH 


CHANGE TO BREAK SC 


0455 


31 


OE 00B7 


R 


XOR 


B_PEND2,CX 


BREAK KEY - RESET BREAK PEND FLAG 


0459 


E9 


050C R 




JMP 


XLT90 


WRITE TO P60 


045C 








XLT38.1: 






045C 


09 


OE 00B7 


R 


OR 


B_PEND2,CX 


MAKE KEY - SET BREAK PEND FLAG 


0460 


E9 


050C R 




JMP 


XLT90 


WRITE TO P60 
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0463 
0463 
0468 
046A 
046F 
0471 
0476 



KEYPAD KEYS PROCESSING 

DETERMINE IF THE KEYPAD TABLE IS TO BE SEARCHED. THE KEYPAD TABLE 
SEARCH/NO SEARCH DECISION IS MADE USING THE FOLLOWING RULES: 
THE SEARCH IS ALWAYS MADE IF THERE ARE ANY BREAK PENDING FLAGS AND 
THIS KEY IS A BREAK KEY. THE FUNCTION AND KEYPAD STATES ARE MUTUALLY 
EXCLUSIVE. THE SEARCH IS PERFORMED IF EITHER STATE IS ACTIVE BUT 
NOT BOTH STATES ACTIVE. 



F6 06 00B4 

74 OE 

F6 06 00B4 

74 13 

F6 06 00B4 

74 OC 



R 44 



R 40 



R 04 



XLT40: 
TEST 
JZ 

TEST 
JZ 

TEST 
JZ 



KB_NMI_CNTL,FUNC_STATE+KEYPAD_STATE 

XLT41 ; BOTH OFF - GO TEST BREAK PENDING 

KB_NMI_CNTL,FUNC_STATE ; ONE OR BOTH ARE ON 

XLT42 ; OFF - ONLY ONE ON - GO SEARCH 

KB_NMI_CNTL,KEYPAD_STATE ; ONE OR BOTH ARE ON 

XLT42 ; OFF - ONLY ONE ON - GO SEARCH 



BOTH 



0478 
0478 
047D 
047F 
0482 
0484 
0484 
0487 
048A 
048A 
048D 
0492 
0494 
0496 
0498 
049B 



R 00 



83 3E 00B5 
74 57 
F6 C4 80 
74 52 

B9 0001 
BE 0000 E 



83 EE 02 

2E: 8B 9C 0000 

3A C7 

74 09 
Dl El 

83 FE 00 

75 ED 



FUNC_STATE 
XLT41: 
CMP 
JE 

TEST 
JZ 
XLT42: 
MOV 
MOV 
XLT44: 
SUB 
MOV 
CMP 
JE 
SHL 
CMP 
JNE 



& KEYPAD_STATE ARE OFF OR ON KEYPAD INACTIVE 



B_PEND1,0 
XLT60 

AH,BREAK_BIT 
XLT60 

CX,0001H 

SI, OFFSET KBPADL 

SI, 2 

BX,KBPAD_TBL[SI] 

AL,BH 

XLT50 

CX,1 

SI,0 

XLT44 



THIS KEY IS NOT A KEYPAD KEY. 



049D EB 37 



JMP 



SHORT XLT60 



BREAK PENDING ? 

NO, SKIP KEYPAD SEARCH 

YES, TEST FOR BREAK KEY 

MAKE KEY - SKIP KEYPAD SEARCH 

CX <=== SEARCH KEY BRK PEND FLAG 
TABLE LENGTH 

SEARCH KEYPAD TABLE FOR MATCH 

GET TABLE ENTRY 

CHECK FOR MATCH 

JMP IF MATCH FOUND 

CX <=== SEARCH KEY BRK PEND FLAG 

IS SEARCH COMPLETE ? 

NO, GO CHECK NEXT ENTRY 



GO XLATE NORMAL 



A MATCH HAS BEEN FOUND IN THE KEYPAD TABLE. SET/RESET THE KEYS BREAK 
PENDING FLAG THEN WRITE TO PORT 60. SEND HIDDEN CODE FIRST FOR / OR 



BREAK KEY ? 

YES, GO RESET BREAK PENDING 

SET KEYS BREAK PENDING FLAG 



BREAK PENDING FOR THIS SPECIFIC SC 

NO, JMP TO PROCESS AS BASE KEY 

RESET KEYS BREAK PENDING FLAG 

USE BREAK BIT FROM NMI SC 

AL <=== PCI EXTENDED SC FROM TBL 

/ OR * ? 

NO, JUMP OUT 

QUEUE P60 SC 

SEND HIDDEN CODE TO P60 



049 F 








XLT50: 




049 F 


F6 


C4 80 




TEST 


AH,BREAK_BIT ; 


04A2 


75 


06 




JNZ 


XLT52 ; 


04A4 


09 


OE 00B5 


R 


OR 


B_PEND1,CX ; 


04A8 


EB 


OA 




JMP 


SHORT XLT54 


04AA 








XLT52: 




04AA 


85 


OE 00B5 


R 


TEST 


CX,B_PEND1 ; 


04AE 


74 


26 




JZ 


XLT60 ; 


04B0 


31 


OE 00B5 


R 


XOR 


B_PEND1,CX 


04B4 


OA 


DC 




XLT54: 


OR BL,AH ; 


04B6 


8A 


C3 




MOV 


AL,BL ; 


04B8 


80 


FF 4B 




CMP 


BH,NMI_SLASH_SC ; 


04BB 


72 


05 




JB 


XLT56 


04BD 


A2 


00 B9 R 




MOV 


P60_H0LD_BYTE,AL ; 


04C0 


BO 


EO 




MOV 


AL,HIDN_CODE_EO ; 



THE PORT 60 KEYPAD STATE IS SET OR RESET USING THE FOLLOWING RULES: 
THIS KEY HAS BEEN TRANSLATED ASSUMING THE KEYPAD STATE IS ACTIVE. 
A PORT 60 SHIFT STATE TEMPORARILY TOGGLES THE KEYPAD STATE. IF THE 
PORT 60 SHIFT STATE IS NOT SET THE P60 KEYPAD STATE IS SET AND THE 
PCI KEYPAD SCAN CODE IS WRITTEN TO PORT 60. IF THE PORT 60 SHIFT STATE 
IS SET THE P60 KEYPAD STATE IS RESET (IT WILL REVERT TO THE SET STATE IN 
THE PORT 60 PROCESSING) AND THE PCI SCAN CODE IS WRITTEN TO PORT 60. 



04C2 
04C2 



80 OE 0017 R 20 



XLT56: 
OR 



KB_FLAG,NUM_STATE 



SET KEYPAD STATE 
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04C7 


F6 06 0017 R 03 


TEST 


KB_FLAG,LEFT_SHIF 


04CC 


74 3E 


JZ 


XLT90 


04CE 


80 36 0017 R 20 


XOR 


KB_FLAG,NUM_STATE 


04D3 


EB 37 90 


JMP 


XLT90 



PORT 60 SHIFT STATE ? 



NO, GO WRITE TO PORT 60 
RESET KEYPAD STATE 
GO WRITE TO PORT 60 



BASE KEYS PROCESSING 

SCAN CODE IS NOT IN SPECIAL TABLES. XLATE TO PCI SCAN CODES. 

AFTER TRANSLATION THE CURSOR, INSERT, AND DELETE KEYS ARE DETECTED 

AND ROUTED TO THE ROUTINE THAT GUARANTEES THE PORT 60 KEYPAD STATE 
IS INACTIVE. ALL OTHER KEYS ARE WRITTEN TO PORT 60. 



04D6 



NOT A FN+KEY OR KEYPAD KEY 
XLT60: 



GET KEY'S P60 SC 



04D6 


8D 


IE 0000 


E 




LEA 


BX,KBNMI_TBL ; 


04DA 


2E 


D7 






XLAT 


KBNMI_TBL ; 


04DC 


24 


7F 






AND 


AL,7FH ; 


04DE 










XLT60_1: 




04DE 


3C 


48 






CMP 


AL,48H ; 


04E0 


73 


17 






JAE 


XLT65 ; 


04E2 


3C 


38 






CMP 


AL,P60_ALT_SC ; 


04E4 


75 


OC 






JNE 


XLT62 ; 






\ 


ALT 


KEY 




04E6 


F6 


C2 08 






TEST 


DL,NMI_R_ALT_BIT3 ; 


04E9 


74 


07 






JZ 


XLT62 ; 


04EB 


OA 


C4 






OR 


AL,AH ; 


04ED 


A2 


00 B9 R 






MOV 


P60_H0LD_BYTE,AL 


04F0 


BO 


EO 






MOV 


AL,HIDN_CODE_EO ; 






\ 


NOT 


CURSOR, INSERT, DELETE 


04F2 










XLT62: 




04F2 


OA 


C4 






OR 


AL,AH ; 


04F4 


E8 


0524 R 






CALL 


NUM_STATE_FIX ; 


04F7 


EB 


13 






JMP 


SHORT XLT90 ; 






' 


CURSOR 


INSERT, 


OR DELETE KEY 


04F9 










XLT65: 




04F9 


OA 


C4 






OR 


AL,AH ; 



AL <=== NMI SC W/0 BREAK BIT 
SCAN CODE TABLE - NMI TO PCI 
XLATE NMI SCAN CD TO PCI SCAN CD 
AL <=== PCI SC FROM TBL 
CLEAR TYPE BIT 

CURSOR, INSERT, DELETE ? 

YES, JUMP TO PROCESS THESE KEYS 

ALT KEY? 

NO, JUMP AROUND 



R_ALT KEY? 

NO, JUMP OUT 

USE NMI SC BREAK BIT 

QUEUE P60 ALT SC 

SEND HIDDEN CODE TO P60 



USE NMI SC BREAK BIT 

MAKE NUM_STATE RLCT KEYPAD_STATE 

GO WRITE TO PORT 60 



USE NMI SC BREAK BIT 



04FB 
04FB 
0500 
0505 
0507 



050C 
050C 
050D 
0512 
0514 
0519 
051B 
051B 
0520 



THE CURSOR, FUNCTION+CURSOR, INSERT, AND DELETE KEYS ARE NO LONGER IN 

THE KEYPAD AREA OF THE KEYBOARD. WHEN THEIR SCAN CODES ARE WRITTEN TO 

PORT 60, THE PORT 60 KEYPAD STATE MUST BE INACTIVE. 

A PORT 60 SHIFT STATE TEMPORARILY TOGGLES THE KEYPAD STATE. IF THE 

PORT 60 SHIFT STATE IS NOT SET THE P60 KEYPAD STATE IS RESET AND THE 

PCI SCAN CODE IS WRITTEN TO PORT 60. IF THE PORT 60 SHIFT STATE 

IS SET THE P60 KEYPAD STATE IS SET (IT WILL REVERT TO THE RESET STATE IN 

THE PORT 60 PROCESSING) AND THE PCI SCAN CODE IS WRITTEN TO PORT 60. 



80 OE 0017 R 20 
F6 06 0017 R 03 
75 05 
80 36 0017 R 20 



XLT80: 
OR 

TEST 
JNZ 
XOR 



KB_FLAG,NUM_STATE ; SET P60 KEYPAD STATE 
KB_FLAG,LEFT_SHIFT+RIGHT_SHIFT ; PORT 60 SHIFT STATE 
XLT90 ; YES, GO WRITE TO PORT 60 

KB_FLAG,NUM_STATE ; RESET P60 KEYPAD STATE 



THE PCI SCAN CODE IN AL IS WRITTEN TO PORT 60 



FA 

80 OE 00B4 

E6 60 

80 26 00B4 

EB 08 

80 26 00B4 
E9 0319 R 



R 80 



R EF 



R EF 



XLT90: 
CLI 
OR 
OUT 
AND 
JMP 

XLT95: 
AND 
JMP 



; DISABLE INTERRUPTS 
KB_NMI_CNTL,P60_L0ADED ; SET ON PORT 60 ACTIVE STATUS 
KB_DATA,AL ; WRITE PCI SCAN CODE TO PORT 60 
KB_NMI_CNTL,NOT XLATE_BUSY ; RESET BUSY FLAG 
SHORT XLT100 

KB_NMI_CNTL,N0T XLATE_BUSY ; RESET BUSY FLAG 
XLT10 ; REDRIVE XLATE ROUTINE 
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; RETURN TO CALLER 


0523 




XLT100: 


0523 


C3 


RET 


0524 




KYBD_XLT ENDP 



; IN QUEUE 

; RETURN 

; PROCEDURE END 



0524 
0524 
0529 
052E 
0530 
0535 
0535 
0536 



SUBROUTINE NUM_STATE_FIX 

THIS ROUTINE MAKES THE NUM.STATE FLAG REFLECT THE KEYPAD_STATE FLAG. 



80 26 0017 
F6 06 00B4 
74 05 
80 OE 0017 

C3 



0536 








0536 


B4 


00 




0538 


AO 


0049 


R 


053B 


CD 


10 




053D 


2B 


D2 




053F 


BD 


0000 


E 


0542 


OE 






0543 


07 






0544 


E8 


0000 


E 


0547 


E4 


7F 




0549 


24 


F3 




054B 


E6 


7F 




054D 








054D 


E4 


7D 




054F 


EB 


FC 





INPUT: NONE 



OUTPUT: NUM_STATE SET OR RESET 



NUM_STATE_FIX PROC NEAR 



R 20 



AND 

TEST 

JZ 

OR 
NSF_RET: 

RET 
NUM_STATE_FIX 



KB_FLAG,NOT NUM_STATE ; TURN OFF NUM_STATE 
KB_NMI_CNTL,KEYPAD_STATE ; IS KEYPAD IN ACTIVE STATE? 
NSF_RET ; NO, LEAVE NUM_STATE OFF 

KB_FLAG,NUM_STATE ; YES, TURN NUM_STATE ON 



ENDP 



THIS ROUTINE IS ACTIVATED WHEN THE NMI_FLIH DETECTES AN I/O CHECK 
IT CAUSES A PARITY CHECK ICON TO BE DISPLAYED ON THE ACTIVE DISPLAY AFTER 
THE DISPLAY SCREEN IS CLEARED. SUSPEND IS DISABLED AND THE KEYBOARD IS 
WAITING FOR A FUNCTION CONTROL DELETE KEY SEQUENCE. 



CHAN_CHK 

MOV 

MOV 

INT 

SUB 

MOV 

PUSH 

POP 

CALL 

IN 

AND 

OUT 
CHAN_STOP: 

IN AL,7DH 

JMP SHORT CHAN_STOP 



PROC NEAR 
AH,0 

AL,CRT_MODE 
10H 
DX,DX 

BP,OFFSET PAR_CHK 
CS 
ES 

ICON_PR 
AL PWR_STAT 

al'not EN_SUS_NMI+HDWR_RESET 
PWR_STAT,AL 



INIT AND SET MODE FOR VIDEO 

CALL VIDE0_IO PROCEDURE 
SET ROW/COLUMN FOR ICON 
GET ADDRESS OF PARITY CHECK 

ES:BP CONTAIN ICON ADDRESS 
DISPLAY CHECK ICON 
DISABLE SUSPEND NMI 



KEEP READING KEYBOARD 
FOR RESET SEQUENCE 



0551 



CHAN_CHK 



ENDP 



Real-Time Clock NMI 
(RTC.ALARM-NMI) 



*************************************************************** 

RTC_ALARM_NMI — REAL TIME CLOCK INTERRUPT HANDLER 

THIS ROUTINE HANDLES THE PERIODIC AND ALARM INTERRUPTS FROM 

THE NON-VOLATILE TIMER. INPUT FREQUENCY IS 1.024 KHZ 

OR APPROXIMATELY 1024 INTERRUPTS EVERY SECOND FOR THE 

PERIODIC INTERRUPT. FOR THE ALARM FUNCTION, AN INTERRUPT WILL 

OCCUR AT THE DESIGNATED TIME. 
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0551 






0551 


B4 


OB 


0553 


E8 


0747 R 


0556 


8A 


F8 


0558 


FE 


C4 


055A 


E8 


0747 R 


055D 


22 


C7 


055F 


50 




0560 


A8 


40 


0562 


74 


25 


0564 


81 


2E 009C 


056A 


73 


ID 


056C 


83 


IE 009E 


0571 


73 


16 


0573 


B4 


OB 


0575 


E8 


0747 R 


0578 


24 


BF 


057A 


E8 


0750 R 



THE INTERRUPT IS ENABLED ONLY WHEN EVENT OR ALARM FUNCTIONS 

ARE ACTIVE OR WHEN SYSTEM IS SLEEPING. 

FOR THE EVENT INTERRUPT, THE HANDLER WILL DECREMENT THE 

WAIT COUNTER AND WHEN IT EXPIRES WILL TURN ON THE HIGH ORDER 

BIT OF THE DESIGNATED FLAG. 

FOR THE ALARM INTERRUPT, THE USER ROUTINE WILL BE INVOKED 

ON THE NEXT TIMER INTERRUPT THROUGH INT 4AH. 

ON ENTRY THE BP REGISTER POINTS TO THE LAST STACK POSITION 

GET INTERRUPT MODE REGISTER 



RTC_ALARM_NMI PROC NEAR 

MOV AH,RTC_MODE 

CALL GET_RTC_NMI 

MOV BH,AL 

INC AH 

CALL GET_RTC_NMI 

AND AL,BH 

PUSH AX 

TEST AL,PI_INT 

JZ RTC_INT_9 



PERIODIC INTERRUPT HAS BEEN RECEIVED 
R 03D0 
R 00 



SUB 
JNC 
SBB 
JAE 



RTC_L0W,0976 
RTC_INT_9 
RTC_HIGH,0 
RTC_INT_9 



USERS ELAPSED TIME EVENT HAS OCCURRED 



MOV 
CALL 
AND 
CALL 



AH,RTC_MODE 
GET_RTC_NMI 
AL,NOT PIE_ENABLE 
PUT_RTC_NMI 



SAVE MODE 

GET INTERRUPT STATUS REGISTER 

MASK SOURCE WITH ENABLES 
SAVE INTERRUPT CONDITIONS 
CHECK FOR PERIODIC INTERRUPT 
NO - GO AROUND 



DECREMENT ELAPSED TIME COUNT 
SKIP HIGH BYTE 

WAIT TELL ROLLS FROM 

; GET INTERRUPT MODE CONTROL 
; RESET PERIODIC INTERRUPT 



CLEAR EVENT_WAIT ACTIVE FLAG AND SET USERS EVENT COMPLETE FLAG 



057D 80 26 OOAO R FE 

0582 C5 3E 0098 R 

0586 C6 05 80 

0589 

0589 58 

058A A8 20 

058C 74 05 



AND RTC_WAIT_FLAG,NOT INTERVAL_WAIT ; RESET INT WAIT FLAG 
LDS DI, DWORD PTR USER_FLAG ; DS:DI <-- USERS_FLAG ADDRESS 
MOV BYTE PTR[DI], POSTED ; SET USERS FLAG 



RTC_INT_9: 

POP AX 

TEST AL,AL_INT 

JZ RTC_INT_10 



RETRIEVE INTERRUPT SOURCE 
TEST FOR ALARM INTERRUPT 
NO - GO AROUND 



; RTC ALARM TIME HAS BEEN REACHED - SET BIOS_STATUS FLAG TO ALARM_PEND 
; THIS WILL CAUSE AN INT 4AH TO BE EXECUTED ON THE NEXT TIMERO INTERRUPT 

058E 80 OE OOAO R 02 OR RTC_WAIT_FLAG,ALARM_PEND ; SET INT 4AH CALL PENDING 

; CHECK FOR UPDATE IN PROGRESS INTERRUPT (EVERY 1 SECOND) 



0593 








RTC_INT_10: 




0593 


A8 


10 




TEST 
JFZ 


AL,UE_INT 
RTC_INT_14 


UPDATE ENDED INTERRUPT? 
JUMP IF NOT 


0595 


75 


03 




JNZ 


$+5 


; IF NOT ZERO JUMP AROUND JUMP 


0597 


E9 


0647 


R 


JMP 


RTC_INT_14 


; ELSE TAKE A LONG JUMP 


059A 


E8 


064A 


R 


CALL 


LOW_BAT_CHK 


CHECK AND DISPLAY LOW BATTERY 
MESSAGE IF NECESSARY 


059D 


E4 


7F 




IN 


AL,PWR_STAT 


GET POWER STATUS 


059F 


A8 


40 




TEST 
JFNZ 


AL,EXT_PWR 
RTC_INT_14 


ARE WE ON EXTERNAL PWR? 
JUMP IF SO 


05A1 


74 


03 




JZ 


$+5 


; IF NOT NOT ZERO JUMP AROUND JUMP 


05A3 


E9 


0647 


R 


JMP 


RTC_INT_14 


; ELSE TAKE A LONG JUMP 
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05A6 


F6 


06 0016 


R 20 


TEST 


BIOS_STATUS,KYBD_ACTIVE ; HAS KEYBOARD BEEN ACTIVE? 


05AB 


74 


1A 






JZ 


RTC_INT_12 


JUMP IF KEYBOARD NOT ACTIVE 










RELOAD INACTIVITY 


COUNTS FROM RTC RAM TO SYSTEM RAM 


05AD 


80 


26 0016 


R DF 


AND 


BIOS_STATUS,NOT KYBD_ACTIVE ; RESET KBD ACTIVE FLAG 


05B2 


IE 








PUSH 


DS 


SET ES TO DATA 


05B3 


07 








POP 


ES 




05B4 


BF 


0067 


R 




MOV 


DI .OFFSET DSP_BLANK_CTR 


05B7 


B4 


19 






MOV 


AH,RTC_LCD_INACT 


START WITH LCD INACTIVITY COUNT 


05B9 


B9 


0004 






MOV 


CX,4 


TRANSFER 4 BYTES 


05BC 










RTC_INT_11 






05BC 


E8 


0747 


R 




CALL 


GET_RTC_NMI 




05BF 


AA 








STOSB 




STORE IN COUNTER SAVE AREA 


05C0 


FE 


C4 






INC 


AH 


GET NEXT BYTE 


05C2 


E2 


F8 






LOOP 


RTC_INT_11 




05C4 


E9 


0647 


R 




JMP 


RTC_INT_14 


EXIT LEVEL 










CHECK 


FOR DISKETTE MOTORS ON AND IF SO 


THEN RELOAD COUNT 


05C7 










RTC_INT_12 






05C7 


BA 


03F7 






MOV 


DX,DRIVE_SENSE 


CHECK DISKETTE MOTOR STATUS 


05CA 


EC 








IN 


AL,DX 




05CB 


A8 


78 






TEST 


AL,DR0_SEL_SENSE+DR1_ 


_SEL_SENSE+DR0_M0T_SENSE+DR1_M0T_SE 


05CD 


74 


07 






JZ 


RTC_INT_12_1 


JUMP IF NOT 


05CF 


80 


OE 0016 


R 20 


OR 


BIOS_STATUS,KYBD_ACTIVE ; CAUSE RELOAD OF COUNTERS 


05D4 


EB 


71 






JMP 


SHORT RTC_INT_14 


EXIT 










CHECK 


DISPLAY BLANK COUNT 




05D6 










RTC_INT_12 


_1: 




05D6 


83 


3E 0067 


R 00 


CMP 


DSP_BLANK_CTR,0 




05DB 


74 


06 






JE 


RTC_INT_13 




05DD 


FF 


OE 0067 


R 


DEC 


DSP_BLANK_CTR 




05E1 


74 


36 






JZ 


DSP_BLANK 












CHECK 


SYSTEM POWER OFF COUNT 




05E3 










RTC_INT_13 






05E3 


83 


3E 0069 


R 00 


CMP 


SYS_OFF_CTR,0 




05E8 


74 


5D 






JE 


RTC_INT_14 




05EA 


FF 


OE 0069 


R 


DEC 


SYS_0FF_CTR 




05EE 


74 


46 






JZ 


DEACT_SYSTEM 




05F0 


83 


3E 0069 


R IE 


CMP 


SYS_0FF_CTR,30 


AT THE 30 SECOND MARK? 


05F5 


75 


50 






JNE 


RTC_INT_14 


NO THEN EXIT 










30 SECONDS TO POWER OFF SO RING ALARM 




05F7 


E8 


076E 


r' 




CALL 


NMI_CYCLE 


CYCLE NMI AND RESTORE INT FLAGS 


05FA 


E8 


0759 


R 




CALL 


SPKR.0N 


TURN ON SPEAKER 


05FD 


BB 


003C 






MOV 


BX,60 


TONE LENGTH (60 MSECS) 


0600 


B9 


0081 






MOV 


CX,129 


1/2 CYCLE FREQUENCY FOR 1KHZ TONE 


0603 


E8 


0000 


E 




CALL 


KB_NOISE 


SOUND BEEPER 


0606 


B9 


050A 






MOV 


CX,5*MS_DELAY 


DELAY BETWEEN SOUNDS 


0609 


E2 


FE 






LOOP 


$ 




060B 


BB 0030 






MOV 


BX,48 


TONE LENGTH (60 MSECS) 


060E 


B9 


00A1 






MOV 


CX,161 


1/2 CYCLE FREQ FOR 800 HZ TONE 


0611 


E8 


0000 


E 




CALL 


KB_NOISE 


SOUND BEEPER 


0614 


E8 


0762 


R 




CALL 


SPKR_RESTORE 


RESTORE SPEAKER STATE 


0617 


EB 


2E 






JMP 


SHORT RTC_INT_14 


EXIT 










LCD/CRT MUST BE BLANKED 




0619 










DSP_BLANK: 






0619 


BO 


00 






MOV 


AL,0 




061B 


E6 


74 






OUT 


LCD_INDX,AL 




061D 


E4 


75 






IN 


AL,LCD_DATA 




061F 


24 


BF 






AND 


AL,NOT PANEL_ENABLE 


TURN OFF PANEL 


0621 


E6 


75 






OUT 


LCD_DATA,AL 
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0623 


E8 


076E R 




CALL 


NMI.CYCLE 


CYCLE NMI , RESTORE INT FLAGS 


0626 


B9 


64C8 




MOV 


CX,100*MS_DELAY 




0629 


E2 


FE 




LOOP 


$ 




062B 


24 


DF 




AND 


AL,NOT SYNC.ENABLE 


TURN OFF SYNCS FOR POWER 


062D 


E6 


75 




OUT 


LCD_DATA,AL 




062F 


80 


OE 0016 


R 80 


OR 


BIOS_STATUS,DSP_BLANKED ; SET DISPLAY BLANKED STATUS 


0634 


EB 


11 


TURN 


JMP 
OFF SYSTEM 


SHORT RTC_INT_14 


EXIT 


0636 








DEACT_SYSTEM: 




0636 


80 


OE 0016 


R 40 


OR 


BIOS_STATUS,F_RESUME 


; INDICATE FORCED RESUME MODE 


063B 


E4 


7F 




IN 


AL,PWR_STAT 


GET POWER STAT/CNTL REG 


063D 


24 


F7 




AND 


AL.NOT HDWR_RESET 


TURN OFF RESET FLAG 


063F 


OC 


04 




OR 


AL,EN_SUS_NMI 


ENABLE SYSTEM SUSPEND NMI 


0641 


E6 


7F 




OUT 


PWR_STAT,AL 




0643 


OC 


02 




OR 


AL,REQ_POFF 


REQUEST POWER OFF 


0645 


E6 


7F 




OUT 


PWR_STAT,AL 










EXIT 


FROM RTC INTERRUPT 




0647 








RTC_INT_14 






0647 


E9 


0050 R 




JMP 


*NMIH_EXIT 


RETURN TO FIRST LEVEL HANDLER 


064A 








RTC_ALARM_ 


NMI ENDP 





Low Battery Check (LOW_BAT_CHK) 



LOW BATTERY CHECK 
THIS ROUTINE CHECKS FOR A LOW BATTERY CONDITION AND IF DETECTED WILL ISSUE 
A WARNING. THE LOW BATTERY WARNING WILL OCCUR AFTER TWO CONSECUTIVE LOW 
BATTERY SENSES, NO EXTERNAL POWER SUPPLIED AND THE LOW BATTERY WARNING 
FLAG IS ENABLED IN SYSTEM PROFILE. THE WARNING ISSUED WILL SOUND THREE 
SHORT BEEPS, FLASH THE SCREEN ON AND OFF AT AN ONE SECOND INTERVAL AND 
EXECUTE A PAUSE. THE PAUSE WILL HOLD UP ALL MAIN LEVEL PROCESSING AND 
LOCK OUT NON-INTERRUPT DRIVEN PROCESSING. ONCE THE USER ACKNOWLEDGES THE 
WARNING, EITHER BY PRESSING A KEY OR APPLYING EXTERNAL POWER, THE SCREEN 
FLASHING WILL STOP AND MAIN LEVEL PROCESSING WILL CONTINUE. 
AT SUCCESSIVE TWO MINUTE INTERVALS, THE LOW BATTERY WARNING WILL BE 
REISSUED IF THE LOW BATTERY CONDITION STILL EXISTS OR EXTERNAL POWER HAS 
NOT BEEN APPLIED. IF TWO MINUTES HAVE ELAPSED AND THE WARNING HAS NOT BEEN 
ACKNOWLEDGED, THE APPLICATION WILL BE SUSPENDED AND THE SYSTEM POWERED OFF. 

THIS ROUTINE IS CALLED BY THE RTC_ALARM_NMI ROUTINE EVERY ONE SECOND TO CHECK 
ON THE BATTERY CONDITION. IF LOW BATTERY IS DETECTED, THIS ROUTINE WILL 
CALL WAIT ON EXTERNAL EVENT. THIS WILL ALLOW THE SYSTEM TO SLEEP WHILE 
WAITING FOR A KEY TO BE PRESSED. WHILE WAITING, THE ONE SECOND INTERRUPT CAN 
OCCUR AGAIN CAUSING THE LOW BATTERY CHECK ROUTINE TO BE CALLED AGAIN. SO 
THIS ROUTINE IS RECURSIVE. 



LOW BATTERY CHECK IS DISABLED DURING POST 
**************************************************** 



(•*•********** 



064A 




064A 


F6 06 0012 


064F 


74 03 


0651 


E9 0746 R 


0654 


E4 7F 


0656 


A8 80 


0658 


74 1C 


065A 


A8 40 


065C 


75 18 


065E 


B4 17 


0660 


E8 0747 R 



R 01 



L0W_BAT_ 


CHK PROC NEA 


TEST 


POST_STATUS,POST. 


JFNZ 


LOWBEND 


JZ 


$+5 


JMP 


LOWBEND 


IN 


AL,PWR_STAT 


TEST 


AL,LOW_BAT 


JZ 


LO 


TEST 


AL,EXT_PWR 


JNZ 


LO 


MOV 


AH,RTC_SYS_PR0F1 


CALL 


GET_RTC_NMI 



YES, JUMP TO END 

IF NOT NOT ZERO JUMP AROUND JUMP 

ELSE TAKE A LONG JUMP 

GET POWER INTERFACE 

LOW BATTERY SIGNAL ON? 

NO LOW BATTERY SIGNAL - JUMP TO END 

IS EXTERNAL POWER SUPPLIED? 

YES EXTERNAL POWER - JUMP TO END 

GET SYSTEM PROFILE 



ROM BIOS 2-47 



0663 A8 40 



0665 
0667 
066C 
066E 
0673 
0676 



0676 
067B 
067D 
0682 
0685 



74 OF 

F6 06 0015 R 

75 23 

80 OE 0015 R 
E9 0746 R 



TEST AL,LOWBAT_ENABLE 



LOW BATTERY MESSAGE WANTED 



JZ LO ; NO MESSAGE WANTED - JUMP TO END 

20 TEST BAT_STATUS,LOW_BAT_PEND ; FIRST LOW BAT SIGNAL? 

JNZ LI ; NO, ALREADY 2 CONSECUTIVE SIGNALS 

20 OR BAT_STATUS,LOW_BAT_PEND ; YES, SET WAITING FOR 2ND SIG 

JMP LOWBEND ; EXIT 

LO: 



BATTERY NOT LOW OR EXTERNAL POWER IS APPLIED 



F6 06 0015 R 80 
75 08 

80 26 0015 R DF 
E9 0746 R 



TEST 
JNZ 
AND 
JMP 
L0_A: 



BAT_STATUS,LOW_BAT_SIG ; WAS LOW BTRY ALREADY SIGNALLED 
LO_A ; YES, JUMP 

BAT_STATUS,NOT LOW_BAT_PEND ; TURN OFF LOW BTRY PENDING 
LOWBEND ; JUMP TO EXIT 



LOW BATTERY HAS BEEN SIGNALLED. IF EXTERNAL PWR APPLIED RESET THE WARNING. 



0685 A8 40 
0687 74 08 



TEST 
JZ 



AL,EXT_PWR 
LI 



IS EXTERANL POWER APPLIED? 
NO, JUMP TO WARNING 



BATTERY WAS LOW BUT EXTERNAL POWER APPLIED. 

TURN OFF WAITING FOR KEY AND LOW BATTERY WARNING SIGNALED FLAGS. 

JUMP TO TURN ON PANEL POWER. 



0689 80 26 0015 R IF 
068E E9 073C R 



AND 
JMP 



BAT_STATUS , NOT L0W_BAT_S I G+LOW_BAT_HOLD+LOW_BAT_P END ; 
L_PANEL_ON ; ENABLE PANEL BEFORE EXITING 



BATTERY IS LOW WITH NO EXTERNAL POWER AND WARNING ENABLED 



0691 LI: 

0691 F6 06 0015 R 80 TEST 
0696 74 2B JZ 



BAT_STATUS,LOW_BAT_SIG ; LOW BTRY ALREADY SIGNALLED? 
L3 ; NO, GO SIGNAL LOW BATTERY 



LOW BATTERY HAS ALREADY BEEN SIGNALLED 



0698 
069D 



069F 
06A1 
06A3 
06A5 
06A7 
06A9 



06AB 



F6 06 0015 R 
74 OC 



40 



TEST 
JZ 



BAT_STATUS,LOW_BAT_HOLD ; ARE WE IN HOLD STATE ? 

L2 ; NO, JUMP AROUND SCREEN TOGGLING 



TOGGLE SCREEN ON AND OFF WHILE WAITING FOR A KEY TO BE PRESSED(HOLD STATE). 



BO 00 
E6 74 
E4 75 
34 40 
OC 20 
E6 75 



MOV 

OUT 

IN 

XOR 

OR 

OUT 



AL,LCD_FUNCT 

LCD_INDX,AL 

AL,LCD_DATA 

AL,PANEL_ENABLE 

AL,SYNC_ENABLE 

LCD_DATA,AL 



ACCESS LCDC CONTROL REGISTER 
READ LCDC CONTROL REGISTER 
TOGGLE PANEL ON AND OFF 
FORCE SYNCS ON 
ISSUE LCDC CONTROL REG COMMAND 



DECREMENT 2 MINUTE COUNTER. IF COUNTER GOES TO SIGNAL LOW BATTERY 
WARNING AGAIN IF KEY HAS BEEN PRESSED. IF COUNTER = AND A KEY HAS NOT 
BEEN PRESSED, TURN OFF WAITING FOR KEY FLAG. THIS WILL CAUSE THE WAITING 
FOR KEY LOOP TO BE EXITED AND THEN SET UP THE SYSTEM TO SUSPEND. 



L2: 



06AB 


FE OE 0093 


R 




DEC 
JFNZ 


06AF 


74 03 






JZ 


06B1 


E9 0746 R 






JMP 


06B4 


F6 06 0015 


R 


40 


TEST 


06B9 


74 08 






JZ 


06BB 


80 26 0015 


R 


3F 


AND 


06C0 


E9 0746 R 






JMP 



LOW_BAT_CTR ; COUNT DOWN 2 MINUTE COUNTER 
LOWBEND ; NOT 0, SO EXIT 

$+5 ; IF NOT NOT ZERO JUMP AROUND JUMP 

LOWBEND ; ELSE TAKE A LONG JUMP 

BAT_STATUS,LOW_BAT_HOLD ; HAS KEY BEEN PRESSED? 
L3 ; YES, SIGNAL WARNING AGAIN 

BAT_STATUS,NOT LOW_BAT_SIG + LOW_BAT_HOLD ; NO KEY, 
LOWBEND : TURN OFF FLAG AND EXIT 



SIGNAL LOW BATTERY WARNING 

CHECK FOR ANY INTERRUPTS IN SERVICE BEFORE SIGNALING LOW BATTERY 



06C3 






06C3 


BO 


OB 


06C5 


E6 


20 


06C7 


E4 


20 


06C9 


OA 


CO 


06CB 


74 


06 



L3: 



MOV 


AL,OBH 


OUT 


INTAOO,AL 


IN 


AL,INTAOO 


OR 


AL,AL 


JZ 


L4 



GET INTERRUPT IN SERVICE REG 
INTERRUPT CONTROLLER PORT 
READ INTERRUPT IN SERVICE REG 
ANY INTERRUPTS IN SERVICE 
IF ZERO - NONE IN SERVICE 



2-48 ROM BIOS 



06CD FE 06 0093 R 
06D1 EB 73 



INC 
JMP 



L0W_BAT_CTR 
SHORT LOWBEND 



; PROCESS INTERRUPT 



06D3 

06D3 80 OE 0015 R 80 



NO INTERRUPTS IN SERVICE. 
L4: 



SIGNAL LOW BATTERY. 



OR 



BAT_STATUS,LOW_BAT_SIG ; SET LOW BTRY SGNL FLAG ON 



06D8 E8 076E R 



CALL 



NMI.CYCLE 



SOUND THE 3 BEEPS 



06DB 
06E0 
06E3 
06E6 
06E9 
06E9 
06EA 
06ED 

06F0 
06F2 
06F4 
06F5 
06F7 
06FA 
06 Ft 
06FE 
0700 



C6 06 0093 R 78 
B9 0003 
E8 0759 R 
BB OODF 

51 

B9 0090 

E8 0000 E 

2B C9 

E2 FE 

59 

E2 F2 

E8 0762 R 

E4 61 

24 F7 

E6 61 

80 OE 0015 R 40 



MOV 
MOV 
CALL 
MOV 
LOW_BEEP_LOOP: 
PUSH CX 
MOV CX.144 
CALL KB_NOISE 



L0W_BAT_CTR,120 

CX,3 

SPKR_0N 

BX,223 



CYCLE NMI AND RESTORE INT FLAGS 



SET 2 MINUTE COUNTER 
3 BEEPS - LOOP COUNT 
FORCE SPEAKER ON 
SHORT BEEP (.25 SECONDS) 

SAVE LOOP COUNT 

1/2 CYCLE FOR 890 HZ TONE 

SOUND SPEAKER 



SUB CX,CX 

LOOP $ 

POP CX 

LOOP LOW_BEEP_LOOP 

CALL SPKR_RESTORE 

IN AL,NMI_CNTL 

AND AL,NOT DIS_ALARM 

OUT NMI_CNTL,AL ; 

OR BAT_STATUS,LOW_BAT_HOLD ; SET BIT FOR WAITING FOR KEY 



; 250 MS DELAY BETWEEN BEEPS 

; RESTORE LOOP COUNT 

; RESTORE SPEAKER ENABLE 

; RE-ENABLE ALARM NMI 



THIS LOOP WAITS FOR A KEY TO BE PRESSED. WHILE WAITING THE SYSTEM SLEEPS. 
ALSO, WHILE WAITING IN THIS LOOP, THE INTERRUPTS WILL BE PROCESSED. THE 
UPDATE ENDED INTERRUPT WHICH CALLS THE LOW BATTERY ROUTINE WILL INTERRUPT 
OUT EVERY SECOND. TO EXIT THIS LOOP, EITHER A KEY IS PRESSED, EXTERNAL 
POWER IS APPLIED OR THE TWO MINUTE COUNTER GOES TO 0. BY APPLYING EXTERNAL 
POWER (SEE LO_A) OR BY THE TWO MINUTE COUNTER GOING TO (SEE L2) WILL 
FORCE OFF THE WAITING FOR KEY FLAG. IF THE TWO MINUTE COUNTER GOES TO 0, 
THE SYSTEM WILL SET UP TO SUSPEND. 

LOOP UNTIL KEY PRESSED 



FUNCTION 41H, AL=04=RETURN IF ZERO 
; BH=LOW_BAT_HOLD, BL=0=NO TIME OUT 
MAKE ES:DI POINT TO BAT_STATUS 



0705 








LOW_KB_LOOP : ; 


0705 


B8 


4104 






MOV 


AX,4104H ; 


0708 


BB 


4000 






MOV 


BX,L0W_BAT_H0LD*100H 


070B 


IE 








PUSH 


DS ; 


070C 


07 








POP 


ES ; 


070D 


BF 


0015 R 






MOV 


DI, OFFSET BAT_STATUS 


0710 


CD 


15 






INT 


15H ; 


0712 


F6 


06 0015 


R 40 




TEST 


BAT_STATUS,LOW_BAT_HC 


0717 


74 


02 






JZ 


L5 ; 


0719 


EB 


EA 






JMP 


LOW_KB_LOOP ; 


071B 








L5 






071B 


80 


3E 0093 


R 00 




CMP 


LOW_BAT_CTR,0 ; 


0720 


75 


12 






JNE 


L6 ; 


0722 


BA 


03F2 






MOV 


DX,DRIVE_CNTL ; 


0725 


2A 


CO 






SUB 


AL,AL 


0727 


EE 








OUT 


DX,AL ; 



SLEEP UNTIL KEY HIT 



KEY PRESSED EXIT LOOP 
KEEP LOOPING 

CTR = FORCE SUSPEND SET UP 

NO, JUMP ON 

TURN OFF DISKETTE MOTORS 



THESE VARIABLES ARE INITIALIZED TO VALUES THAT CAUSES THE SYSTEM TO TURN 
OFF WHEN RETURNING TO CALLER ( RTC_ALARM_NMI ) . 



KEY PRESSED OR CTR=1 
DISABLE NMI 



0728 


C7 06 


0067 


R 


0000 


MOV 


DSP_BLANK_CTR,0 ; 


072E 


C7 06 


0069 


R 


0001 


MOV 


SYS_0FF_CTR,1 ; 


0734 










L6: 




0734 


E8 0000 E 






CALL 


DISABLE_NMI ; 


0737 


80 26 


0015 


R 


DF 


AND 


BAT_STATUS,NOT LOW_BP 


073C 










L_PANEL_ 


.ON: ; 


073C 


BO 00 








MOV 


AL,LCD_FUNCT ; 


073E 


E6 74 








OUT 


LCD_INDX,AL ; 


0740 


E4 75 








IN 


AL,LCD_DATA ; 


0742 


OC 60 








OR 


AL,PANEL_ENABLE+SYNC_ 



L.PEND ; TURN OFF LOW BAT PEND FLAG 

TURN PANEL ON BEFORE EXITING 

ACCESS LCDC CONTROL REGISTER 
READ LCDC CONTROL REGISTER 
ENABLE ; FORCE PANEL ON 



ROM BIOS 2-49 



0744 


E6 75 


OUT LCD_OATA,AL 


0746 




LOWBEND: 


0746 


C3 


RET 


0747 




LOW_BAT_CHK ENDP 



; ISSUE LCDC CONTROL REG COMMAND 
; RETURN TO CALLER 



***************************************************** 

GET RTC REGISTER WHEN ON NMI LEVEL 

INPUT AH= REGISTER # OUTPUT AL = REGISTER DATA 
***************************************************** 



0747 




GET_RTC_ 


.NMI PROC NEAR 




0747 


86 EO 


XCHG 


AH,AL 




0749 


E6 70 


OUT 


RTCR_PORT,AL 


; OUTPUT REGISTER # 


074B 


86 C4 


XCHG 


AL,AH 




074D 


E4 71 


IN 


AL,RTCD_PORT 


; GET DATA 


074F 


C3 


RET 






0750 




GET_RTC_ 


.NMI ENDP 





***************************************************** 

PUT RTC REGISTER WHEN ON NMI LEVEL 

INPUT AH= REGISTER #, AL = REGISTER DATA OUTPUT: RTC RAM MODIFIED 
***************************************************** 



0750 




PUT_RTC_ 


.NMI PROC NEAR 


0750 


86 EO 


XCHG 


AH,AL 


0752 


E6 70 


OUT 


RTCR_PORT,AL 


0754 


86 C4 


XCHG 


AL,AH 


0756 


E6 71 


OUT 


RTCD_PORT,AL 


0758 


C3 


RET 




0759 




PUT_RTC_ 


.NMI ENDP 



********************************** 

FORCE SPEAKER ENABLE ON 

ON EXIT AH HAS OLD SPEAKER CONDITION 
********************************** 



0759 




SPKR_ON 


PROC NEAR 


0759 


E4 61 


IN 


AL,NMI_CNTL 


075B 


8A EO 


MOV 


AH,AL 


075D 


OC 04 


OR 


AL,EN_SPKR 


075F 


E6 61 


OUT 


NMI_CNTL,AL 


0761 


C3 


RET 




0762 




SPKR_ON 


ENDP 



FORCE SPEAKER ON 



********************************** 
RESTORE SPEAKER TO PREVIOUS STATE 
ON INPUT AH HAS OLD SPEAKER CONDITION 

********************************** 



0762 




SPKR_RESTORE PROC NEAR 


0762 


80 E4 04 


AND 


AH,EN_SPKR 


0765 


E4 61 


IN 


AL,NMI_CNTL 


0767 


24 FB 


AND 


AL,NOT EN_SPKR 


0769 


OA C4 


OR 


AL,AH 


076B 


E6 61 


OUT 


NMI_CNTL,AL 


076D 


C3 


RET 




076E 




SPKR_RESTORE ENDP 



; RESTORE SPEAKER CONTROL 



076E 






076E 


50 




076F 


BO 


07 


0771 


E6 


72 


0773 


EB 


00 


0775 


OC 


20 


0777 


F7 


46 


077C 


74 


01 


077E 


FB 




077F 






077F 


E6 


72 


0781 


58 




0782 


C3 




0783 







******************************************* 
NMI_CYCLE: THIS CODE DISABLES 
AND RE-ENABLES THE NMI BEFORE RESTORING 
THE INTERRUPT FLAGS TO THEIR PREVIOUS 
STATE. 
ALL REGISTERS PRESERVED EXCEPT FLAGS 

******************************************** 

NMI_CYCLE PROC NEAR 



16 0200 



PUSH 


AX 


MOV 


AL,DISABLE_SL 


OUT 


CLOCK_CTL,AL 


JMP 


$+2 


OR 


AL,GLOBAL_NMI 


TEST 


FLGSAVE[BP],I 


JZ 


NMI_C1 


STI 




NMI_C1: 




OUT 


CLOCK_CTL,AL 


POP 


AX 


RET 




NMI_CYCLE 


ENDP 



.FLAG 



DELAY 

RE-ENABLE NMI'S 

CHECK FOR INTERRUPTS ON 

IF NOT THEN DON'T ENABLE 

ALLOW INTERRUPTS AFTER 

ENABLE NMI INSTRUCTION 



2-50 ROM BIOS 



INCLUDE SUSPEND. INC 

SUBTTL SUSPEND SYSTEM STATE 

SUSPEND 

THIS ROUTINE IS ACTIVATED WHEN THE NMI_FLIH DETECTES A SYSTEM SUSPEND NMI . 

DATE LAST MODIFIED: 09/12/85 



***************************************************** 
LOCAL EQUATES 

PUBLIC RESUME 

EXTRN C0M_P0WER:NEAR 

EXTRN MODEM_CONFIG:NEAR 



= B9C0 
= B1C0 
= 0030 



SUSPEND_C0L0R EQU 0B9C0H ; SUSPEND SAVE AREA IN FONT 

SUSPEND_MONO EQU 0B1C0H ; SAVE FOR WHEN IN MONO 

INIT_DISP EQU 30H ; INITIAL VIDEO BITS OF EQUIP_FLAG 

TABLE OF LCD REGISTER ADDRESSES THAT MUST BE SAVED AND RESTORED 



LABEL BYTE 
,OAH,OBH,OCH,ODH,OEH,OFH 



0783 LCDR_TABLE 

0783 01 06 09 OA OB OC DB 1,6, 

OD OE OF 
078C 12 14 15 16 17 18 DB 12H,14H,15H,16H,17H,18H,19H,1AH,1BH,1CH,1DH 

19 1A IB 1C ID 
= 0014 LCDR_LENGTH EQU $-LCDR_TABLE 



ASSUME DSrDATA 



Suspend NMI (SUSPEND) 



0797 








SUSPEND 


PROC NEAR 


0797 


C7 


06 


0072 


R 0000 MOV 


RESET_FLAG,0 ; 


079D 


8B 


16 


0063 


R MOV 


DX,ADDR_6845 


07A1 


83 


C2 


04 


ADD 


DX,4 ; 


07A4 


EC 






IN 


AL,DX ; 


07A5 


8A 


E8 




MOV 


CH,AL ; 


07A7 


BO 


00 




MOV 


AL,LCD_FUNCT 


07A9 


E6 


74 




OUT 


LCD_INDX,AL ; 


07AB 


E4 


75 




IN 


AL,LCD_DATA 


07AD 


8A 


F8 




MOV 


BH,AL ; 


07AF 


24 


BF 




AND 


AL,NOT PANEL_ENABLE ; 


07B1 


E6 


75 




OUT 


LCD_DATA,AL 


07B3 


2A 


DB 




SUB 


BL,BL ; 










TEST FOR LCD OPERABLE I.E. CAN BE USED 


07B5 


B4 


20 




MOV 


AH,RTC_DSP_CON ; 


07B7 


E8 


0747 R 


CALL 


GET_RTC_NMI 


07 BA 


8A 


C8 




MOV 


CL,AL 


07BC 


F6 


CI 


01 


TEST 


CL,DSP_CLCD ; 


07BF 


75 


15 




JNZ 


SUS_000 ; 


07C1 


BA 


03B4 


MOV 


DX,M0N0_CNTL-4 ; 


07C4 


BF 


B1C0 


MOV 


DI,SUSPEND_MONO ; 


07C7 


F6 


CI 


02 


TEST 


CL,DSP_MLCD ; 


07CA 


75 


10 




JNZ 
LCD NOT ACTIVE 


SUS_001 ; 


07CC 


24 


OC 




AND 


AL,DSP_MONO+DSP_CGA ; 


07CE 


3C 


OC 




CMP 


AL,DSP_MONO+DSP_CGA ; 


07D0 


74 


33 




JE 


SUS.002 ; 



CLEAR RESET_FLAG 

OFFSET TO DISPLAY MODE ADDRESS 
GET CURRENT MODE (LCD ONLY) 
CH <-- CURRENT DISPLAY MODE 

; SELECT LCD CONTROL REGISTER 

BH <— CURRENT LCD CONTROL 
TURN OFF LCD PANEL 

BL <--- SUSPEND ERROR FLAGS 



GET LCD CONFIG FLAG 

CL <--- RTC_DSP_CON FLAGS 

TEST LCD STATE 

JUMP IF LCD IS CGA 

ASSUME LCD IS MONO 

DI <-- SAVE AREA SEGMENT 

TEST LCD STATE 

JUMP IF LCD IS MONO 



SAVE ONLY OTHER DISPLAY INFO 
ARE BOTH DISPLAYS ATTACHED? 
IS SO THEN CANNOT SUSPEND 



ROM BIOS 2-51 



07D2 
07D4 



07D6 
07D6 
07D9 

07DC 
07DC 
07E0 

07E2 
07E6 
07E8 
07EB 
07ED 



A8 04 
75 06 



BA 03D4 
BF B9C0 



39 16 0063 
74 25 

8A 2E 0065 
B4 22 
E8 0747 R 
8B F0 
A8 80 



TEST 
JNZ 



AL,DSP_CGA 
SUS_001 



; CGA DISPLAY ONLY? 

; IF YES LEAVE LCD AS MONO 



MONO DISPLAY OR LCD AS CGA SO SET CGA ACCESS 



07EF 74 14 



SUS.OOO: 
MOV 
MOV 

SUS_001: 
CMP 
JE 

MOV 

MOV 

CALL 

MOV 

TEST 

JZ 



DX,CGA_CNTL-4 
DI,SUSPEND_COLOR 



ADDR_6845,DX 
SUS_003 

CH,CRT_MODE_SET 
AH,RTC_DSP_STAT 
GET_RTC_NMI 
SI, AX 
AL,DIAG_FORCE_SUS 

SUS_002 



SETUP LCD CONTROLLER FOR ACCESS 



07F1 
07F4 



07F6 
07 F8 
07FC 
07FE 

0800 
0800 
0802 



0805 
0805 



0807 
0807 
0808 
080B 
080C 
080E 



0810 
0813 
0815 
0816 



0819 
0819 
081B 
081E 



081F 
0821 
0824 
0825 



F6 C7 
75 11 



TEST 
JNZ 



BH,LCD_ENAB 
SUS_003 



; DI <-- SAVE AREA SEGMENT 



; IS LCD THE ACTIVE DISPLAY? 

; IF SO THEN OKAY 

; CH <— MODE SET FOR CRT 

; GET DISPLAY STATUS 

; SI LOW <— RTC_DSP_STAT 

; CHECK RTC_DSP_STAT FLAGS FOR DIAG 

; RESUME 

; IF NOT THEN SUSPEND ERROR 



CHECK FOR LCD ENABLED 

IF SO THEN ALREADY ACCESSED 



LCD NOT ACTIVE SO SET ACTIVE FOR ACCESS 



BO 08 

81 FF B1C0 
74 02 
OC 02 



E6 75 
EB 03 90 



B3 02 



52 

BA 03 F7 
EC 

A8 78 
74 09 



BA 03 F2 

2A CO 

EE 

80 CB 01 



2A CO 
BA 03D8 
EE 



FE CO 
BA 03 B8 
EE 
5A 



MOV 
CMP 
JE 
OR 

SUS_001A: 
OUT 
JMP 



AL,LCD_ENAB 
DI,SUSPEND_MONO 
SUS_001A 
AL,LCD_CGA 



LCD_DATA,AL 
SUS_003 



SET ENABLE 

CHECK FOR LCD AS MONO 

JUMP IF SO 

OTHERWISE SET LCD AS CGA 



WRITE TO LCD CONTROL 



SET SUSPEND UNSUCCESSFUL DUE TO LCD INACCESSABILITY 

SUS_002: 

MOV BL,LCD_NOT_ACTIVE ; SET FLAG - FOR LCD INOPERABLE, THIS 
; WILL NOT BECOME AN ERROR 

CHECK FOR DISKETTE MOTORS OFF 



SUS_003: 

PUSH DX 

MOV DX,DRIVE_SENSE 

IN AL,DX 

TEST AL,DR0_SEL_SENSE+DR1_SEL_SENSE+DR0_M0T_SENSE+DR1_M0T_SENSE 

JZ SUS_004 



; SAVE LCD ADDRESS 
; READ DRIVE STATUS 



DISKETTE MOTORS NOT OFF/ TURN THEM OFF AND SET ERROR FLAG 

: DISKETTE CONTROL 



MOV 
SUB 
OUT 
OR 



DX,DRIVE_CNTL 

AL,AL 

DX,AL 

BL,DSKT_ACTIVE 



TURN OFF CGA DISPLAY VIDEO 



SUS_004: 
SUB 
MOV 
OUT 



AL,AL 

DX,CGA_CNTL 

DX,AL 



SET ERROR FLAG 



DISABLE VIDEO COLOR 



TURN OFF MONO DISPLAY VIDEO 



INC 
MOV 
OUT 
POP 



AL 

DX,MONO_CNTL 

DX,AL 

DX 



; DISABLE VIDEO ON MONO 
; RESTORE LCD ADDRESS 
SAVE REAL TIME CLOCK INTERRUPT MODE AND TURN OFF ALL BUT ALARM INTERRUPTS 



2-52 ROM BIOS 



0826 


B4 


OB 






MOV 


AH,RTC_MODE 




0828 


E8 


0747 


R 




CALL 


GET_RTC_NMI 




082B 


8A 


FO 






MOV 


DH,AL 


DH <— RTC INTERRUPT MODE 
DL <-- LOW ORDER LCD ADDRESS 


082D 


24 


AF 






AND 


AL,NOT PIE_ENABLE+UIE_ENABLE ; DISABLE INTS 


082 F 


E8 


0750 


R 




CALL 


PUT_RTC_NMI 




0832 


FE 


C4 






INC 


AH 


READ LAST INTERRUPT STATUS 


0834 


E8 


0747 


R 




CALL 


GET_RTC_NMI 


TO CLEAR IT 


0837 


F6 


06 OOAO 


R 04 


TEST 


RTC_WAIT_FLAG,PON_ALRM_PEND ; IS POWER ON PENDING? 


083C 


74 


OD 






JZ 


SUS04A 




083 E 


80 


26 OOAO 


R FB 


AND 


RTC_WAIT_FLAG,NOT PON_ALRM_PEND ; RESET FLAG 


0843 


E4 


7F 






IN 


AL,PWR_STAT 




0845 


24 


F7 






AND 


AL.NOT HDWR_RESET 


TURN OFF RESET FLAG 


0847 


OC 


01 






OR 


AL,EN_PON_ALRM 


ENABLE POWER ON BY ALARM 


0849 


E6 


7F 






OUT 


PWR_STAT,AL 












CHECK 


SYSTEM PROFILE FOR RESUME OPTION 


ENABLE OR FORCED RESUME 


084B 










SUS04A: 






084B 


F6 


06 0016 


R 40 


TEST 


BIOS_STATUS,F_RESUME 


; IS A FORCED RESUME REQUESTED? 


0850 


75 


09 






JNZ 


SUS_04B 


JUMP IF YES 


0852 


B4 


17 






MOV 


AH,RTC_SYS_PR0F1 


GET SYSTEM PROFILE 


0854 


E8 


0747 


R 




CALL 


GET_RTC_NMI 




0857 


A8 


80 






TEST 


AL,RESUME_ENABLE 


SYSTEM TO BE RESUMED? 


0859 


74 


IB 






JZ 


SUS_04D 


JUMP IF YES 










SET DIAGNOSTIC 


r LAGS IN RTC AREA 




085B 










SUS_04B: 






085B 


B4 


OE 






MOV 


AH,RTC_DIAG_STAT 


UPDATE DIAGNOSTIC STATUS 


085D 


E8 


0747 


R 




CALL 


GET_RTC_NMI 




0860 


OA 


C3 






OR 


AL,BL 


SET FLAGS 


0862 


OA 


DB 






OR 


BL,BL 


ANY ERRORS? 


0864 


74 


13 






JZ 


SUS_04E 


NO THEN SKIP SAVE 


0866 


F6 


CI 03 




TEST 


CL,DSP_CLCD+DSP_MLCD 


; IF LCD INOPERABLE, THEN RESET 


0869 


75 


08 






JNZ 


SUS_04C 


ERROR FLAG 


086B 


F7 


C6 0080 




TEST 


SI,DIAG_FORCE_SUS 


CHECK FOR FORCE SUSPEND 


086F 


74 


05 






JZ 


SUS_04D 


IF NO LCD AND NO FORCE SUSPEND 
THEN DO NOT LOG ANY ERRORS 


0871 


24 


FD 






AND 


AL,NOT LCD_NOT_ACTIV 


I ; RESET LCD NOT ACTIVE FLAG 


0873 










SUS_04C: 






0873 


E8 


0750 


R 




CALL 


PUT_RTC_NMI 




0876 










SUS_04D: 






0876 


E9 


092C 


R 




JMP 


SUSP_HLT 


YES THEN DO NOT SUSPEND 










CH CONTAINS LCD 


CONTROL SAVE, BX CONTA 


[NS SUSPEND SEGMENT ADDRESS 


0879 










SUS_04E: 






0879 


8A 


CF 






MOV 


CL,BH 


CL <--- CURRENT LCD CONTROL 


087 B 


8E 


C7 






MOV 


ES,DI 


SET SEGMENT 


087D 


2B 


FF 






SUB 


DI,DI 


CLEAR DESTINATION OFFSET 


087 F 


E4 


75 






IN 


AL,LCD_DATA 


GET LCD CONTROL 


0881 


OC 


10 






OR 


AL,LCD_FONT 


SET FONT ACCESS FLAG 


0883 


E6 


75 






OUT 


LCD_DATA,AL 












SAVE 


STACK SEGMENT AND POINTER 




0885 


8C 


DO 






MOV 


AX,SS 


SAVE STACK SEGMENT 


0887 


AB 








STOSW 






0888 


8B 


C4 






MOV 


AX,SP 


SAVE STACK POINTER 


088A 


AB 








STOSW 














SAVE 


REAL TIME CLOCK INTERRUPT MODE 




088 B 


8A 


C6 






MOV 


AL,DH 


SAVE RTC INTERRUPT MODE 


088D 


AA 








STOSB 







SAVE LCD SYSTEM CONTROL, MODE CONTROL, AND PARAMETER REGISTERS 



ROM BIOS 2-53 



088E 


8B 


CI 


0890 


AB 




0891 


BE 


0783 R 


0894 


B9 


0014 


0897 


B6 


03 


0899 






0899 


2E 


8A 04 


089C 


46 




089D 


EE 




089E 


42 




089F 


EC 




08A0 


AA 




08A1 


4A 




08A2 


E2 


F5 


08A4 


BO 


50 


08A6 


B9 


0002 


08A9 






08A9 


E6 


43 


08AB 


E4 


43 


08AD 


AA 




08AE 


E4 


40 


08B0 


AA 




08B1 


E4 


42 


08B3 


AA 




08B4 


BO 


DO 


08B6 


E2 


Fl 


08B8 


E4 


21 


08 BA 


AA 




08BB 


BO 


04 


08BD 


E6 


72 


08BF 


E4 


63 


08C1 


AA 




08C2 


BO 


44 


08C4 


E6 


72 


08C6 


E4 


63 


08C8 


AA 




08C9 


B8 


0000 


08CC 


8E 


D8 


08CE 


BE 


0000 


08D1 


B9 


0040 


08D4 


F3/ A5 


08D6 


BE 


0110 


08D9 


A5 




08DA 


A5 




08DB 


B9 


011E 


08DE 


BE 


0300 


08E1 


F3/ A5 


08E3 


E4 


7C 


08E5 


AA 




08E6 


E4 


AO 


08E8 


AA 





MOV 

STOSW 

MOV 

MOV 

MOV 

SUS_005: 
MOV 
INC 
OUT 
INC 
IN 

STOSB 
DEC 
LOOP 



AX,CX ; 

SI, OFFSET LCDR.TABLE 

CX,LCDR_LENGTH 

DH,03 ; 



AL,CS:[SI] 

SI 

DX,AL 

DX 

AL,DX 

DX 
SUS_005 



SAVE TIMER AND TIMER 2 INFORMATION 



MOV 
MOV 
SUS_006: 
OUT 
IN 

STOSB 
IN 

STOSB 
IN 

STOSB 
MOV 
LOOP 



AL,50H 
CX,2 

TIMER_CTL,AL 
AL,TIMER_CTL 

ALJIMERO 

AL,TIMER2 

AL,ODOH 
SUS_006 



INTERRUPT CONTROLLER STATE 


IN 


AL,INTA01 


STOSB 




MOV 


AL,04 


OUT 


CLOCK_CTL,AL 


IN 


AL,63H 


STOSB 




MOV 


AL,44H 


OUT 


CLOCK_CTL,AL 


IN 


AL,63H 



STOSB 
SAVE INTERRUPT 0-32 VECTORS 



MOV 
MOV 
MOV 
MOV 
REP 



AX,0 

DS,AX 

SI,0 

CX,64 

MOVSW 



SAVE INTERRUPT VECTOR 44H 

MOV SI,44H*4 

MOVSW 

MOVSW 

SAVE DATA AREA FROM 0300-053A 



MOV 
MOV 
REP 



CX.11EH 

SI,0300H 

MOVSW 



SAVE LCD MODE CONTROL 

; SAVE LCD REGISTERS 

SET HIGH ORDER LCD ADDRESS 
LOW ORDER ALREADY SET 

; GET REGISTER # 
BUMP POINTER 
SET REGISTER # 
GET DATA PORT 

SAVE 

CONTINUE 



; SELECT TIMER AND LSB 
; LOOP NUMBER 



GET TIMER 0/2 MODE 
GET TIMER LSB/MSB 
GET TIMER 2 LSB/MSB 
SELECT TIMER 2 AND MSB 

GET INTERRUPT MASK 
SELECT INTERRUPT BYTE 
SAVE BYTE 

SELECT INTERRUPT BYTE 1 
SAVE BYTE 1 



SET DS SEGMENT 
SAVE 32 VECTORS 



SAVE VECTOR 44H 



SET MOVE LENGTH 
SET SOURCE ADDRESS 



SAVE KEYBOARD AND FEATURE CONTROL REGISTER 

IN AL,KYBD_CNTL 
STOSB 

SAVE I/O CHANNEL CHECK FLAG 

IN AL,IONMI_CNTL 
STOSB 



2-54 ROM BIOS 









SAVE NMI AND SPEAKER CONTROL REGISTER 




08E9 


E4 


61 




IN 


AL,NMI_CNTL 




08EB 


AA 






STOSB 






08EC 


BO 


00 




MOV 


AL,0 




08EE 


E6 


61 




OUT 


NMI_CNTL,AL 


; DISABLE SPEAKER 








SAVE 


COMMUNICAYTIONS CONTROLLER(S) CURRENT STATE 


08F0 


B3 


01 




MOV 


BL.01 


; SET SUSPEND PARAMETER FOR 


08F2 


E8 


0B04 R 




CALL 


ASYNC_SUSPEND 


; SAVING ASYNC DEVICES 








CHECKSUM LOWER 128K OF STORAGE 




08F5 


2B 


DB 




SUB 


BX,BX 


, SET ACCUMULATOR 


08F7 


BE 


053A 




MOV 


SI.53AH 


; STARTING OFFSET 


08FA 


B9 


7D63 




MOV 


CX,7D63H 


, CHECKSUM 32K WORDS 


08FD 








SUS_010: 






08FD 


AD 






LODSW 






08FE 


03 


D8 




ADD 


BX,AX 




0900 


E2 


FB 




LOOP 


SUS_010 




0902 


B9 


8000 




MOV 


CX.8000H 


; CHECKSUM NEXT 32K WORDS 


0905 


8C 


D8 




MOV 


AX,DS 




0907 


80 


C4 10 




ADD 


AH,10H 


; OFFSET TO NEXT SEGMENT 


090A 


8E 


D8 




MOV 


DS,AX 




090C 








SUS_011: 






090C 


AD 






LODSW 






090D 


03 


D8 




ADD 


BX,AX 




090F 


E2 


FB 


CANNOT 


LOOP 
USE SYSTEM 


SUS_011 

STACK FROM HERE ON 




0911 


BO 


23 




MOV 


AL,RTC_BMEM_CKSL 


; ADDRESS CHECKSUM LOW SAVE AREA 


0913 


E6 


70 




OUT 


RTCR_PORT,AL 


; OUTPUT ADDRESS 


0915 


8A 


C3 




MOV 


AL,BL 




0917 


E6 


71 




OUT 


RTCD_PORT,AL 


; OUTPUT DATA 


0919 


BO 


24 




MOV 


AL,RTC_BMEM_CKSH 


; ADDRESS CHECKSUM HI SAVE AREA 


091B 


E6 


70 




OUT 


RTCR_PORT,AL 


; OUTPUT ADDRESS 


09 ID 


8A 


C7 




MOV 


AL,BH 




091F 


E6 


71 




OUT 


RTCD_PORT,AL 


; OUTPUT DATA 








SET SUSPEND FLAG 














ASSUME 


DS:DATA 




0921 


B8 


R 




MOV 


AX .DATA 


; SET DS BACK TO DATA AREA 


0924 


8E 


D8 




MOV 


DS,AX 




0926 


C7 


06 007' 


I R 5678 


MOV 


RESET_FLAG,SYS_SUSPEND ; SET SUSPEND SUCCESSFUL 


092C 








SUSP_HLT: 






092C 


BO 


00 




MOV 


AL,CLOCK_STOP 


; STOP SYSTEM CLOCKS 


092E 


E6 


72 




OUT 


CLOCK_CTL,AL 




0930 


EB 


FA 




JMP 


SUSP_HLT 




0932 








SUSPEND 


ENDP 





Resume (RESUME) 









*******-t 
RESUME 


******************************************************** 
SUBROUTINE TO RESTORE SYSTEM FOR APPLICATION RESUME 








*************************************************************** 


0932 








RESUME 
ASSUME 


PROC NEAR 
DS : DATA 


0932 


E8 


0000 E 




CALL 


DISABLE_NMI ; DISABLE ALL INTERRUPTS 


0935 


B4 


20 




MOV 


AH,RTC_DSP_CON ; GET LCD TYPE 


0937 


E8 


0747 R 




CALL 


GET_RTC_NMI 



ROM BIOS 2-55 



093A 
093D 


BB 
BA 


B1C0 
03B4 


0940 
0942 


A8 
75 


06 
06 


0944 
0947 


BB 
BA 


B9C0 
03D4 


094A 
094A 
094C 


8E 
BE 


DB 
0007 


094F 
0951 
0953 
0955 
0959 
095B 


BO 
E6 
BO 
81 
74 
OC 


00 

74 

18 

FA 03 B4 

02 

02 


095D 
095D 


E6 


75 



MOV 
MOV 



BX,SUSPEND_MONO 
DX,M0N0_CNTL-4 



; DEFAULT TO LCD AS MONO 



SET RESUME MODE ACCORDING TO DISPLAY CONFIGURATION 



TEST 
JNZ 



MOV 
MOV 



AL,DSP_MLCD+DSP_CGA ; IF LCD AS MONO OR CGA INSTALLED 



RES_001: 
MOV 
MOV 



RES.001 

BX,SUSPEND_COLOR 
DX,CGA_CNTL-4 



DS,BX 
SI, 7 



; JMP - RESUME IN MONO MODE 
; LCD MUST BE COLOR 



; GET SAVE AREA SEGMENT 
; RETRIEVE LCD INFO 



ACCESS LCD FONT AREA WHERE SYSTEM SUSPEND SAVE AREA IS LOCATED 



MOV 

OUT 

MOV 

CMP 

JE 

OR 

RES_001A: 
OUT 



AL,LCD_FUNCT 

LCD_INDX,AL 

AL,LCD_ENAB+LCD_FONT 

DX,M0N0_CNTL-4 

RES_001A 

AL,LCD_CGA 



LCD_DATA,AL 



SELECT LCD REG 
; SET ENABLE WITH FONT ACCESS 
IS LCD SET IN MONO MODE? 
JUMP IF YES 
NO, USE LCDC AS CGA 



SET LCD MODE FOR RESUME 



095F 


BF 


0783 R' 


0962 


B9 


0014 


0965 






0965 


2E 


8A 05 


0968 


47 




0969 


EE 




096A 


42 




096B 


AC 




096C 


EE 




096D 


4A 




096E 


E2 


F5 


0970 


AC 




0971 


24 


3F 


0973 


8A 


EO 


0975 


E6 


43 


0977 


AC 




0978 


8A 


D8 


097A 


AC 




097B 


8A 


C8 


097D 


AC 




097E 


8A 


FO 


0980 


AC 




0981 


8A 


F8 


0983 


AC 




0984 


8A 


E8 


0986 


80 


E4 30 


0989 


80 


FC 10 


098C 


74 


OF 


098E 


80 


FC 20 


0991 


74 


10 


0993 


8A 


C3 


0995 


E6 


40 


0997 


8A 


C7 


0999 


E6 


40 


099B 


EB 


OA 


099D 






099D 


8A 


C3 


099F 


E6 


40 



RESTORE LCD CONTROL REGISTERS 

MOV DI, OFFSET LCDR_TABLE ; POINT TO LCD REG TABLE 
GET LENGTH OF TABLE 

; GET REGISTER ADDRESS 

OUTPUT REG NUMBER 

GET DATA PORT 

RETRIEVE REGISTER VALUE 

; SET DX BACK TO INDEX PORT 



GET TIMER MODE 
TURN OFF UPPER TWO BITS 
AH HAS TIMER MODE 
WRITE TIMER MODE 

BL HAS TIMER LSB 

CL HAS TIMER 2 LSB 

DH HAS TIMER 2 MODE 

BH HAS TIMER MSB 

CH HAS TIMER 2 MSB 

SAVE ONLY READ/WRITE TYPE 
IS IT LSB ONLY? 

IS IT MSB ONLY? 

OUT LSB FIRST THEN MSB 



; WRITE LSB ONLY 



MOV 


CX,LCDR_LENGTH 


RES_002: 




MOV 


AL,CS:[DI] 


INC 


DI 


OUT 


DX,AL ; 


INC 


DX ; 


LODSB 




OUT 


DX,AL 


DEC 


DX ; 


LOOP 


RES.002 


SYSTEM TIMERS 


LODSB 




AND 


AL,3FH ; 


MOV 


AH,AL ; 


OUT 


TIMER_CTL,AL ; 


LODSB 




MOV 


BL,AL '; 


LODSB 




MOV 


CL,AL ; 


LODSB 




MOV 


DH,AL \ 


LODSB 




MOV 


BH,AL ; 


LODSB 




MOV 


CH,AL ; 


IMER COUNTER 


AND 


AH,30H ; 


CMP 


AH,10H 


JE 


RES_003 


CMP 


AH,20H ; 


JE 


RES_004 


MOV 


AL,BL ; 


OUT 


TIMERO,AL 


MOV 


AL,BH 


OUT 


TIMERO,AL 


JMP 


SHORT RES_005 


RES_003: 




MOV 


AL,BL ; 


OUT 


TIMERO.AL 



2-56 ROM BIOS 



09A1 


EB 


04 




JMP 


SHORT RES_ 


.005 




09A3 








RES.004: 








09A3 


8A 


C7 




MOV 


AL,BH 




WRITE MSB ONLY 


09A5 


E6 


40 




OUT 


TIMERO.AL 












RESTORE TIMER 2 








09A7 








RES_005: 








09A7 


8A 


C6 




MOV 


AL,DH 




SET TIMER 2 MODE 


09A9 


24 


3F 




AND 


AL,3FH 




TURN OFF UPPER TWO BITS 


09AB 


OC 


80 




OR 


AL,80H 




SET TIMER 2 


09AD 


E6 


43 




OUT 


TIMER_CTL, 


AL 




09AF 


24 


30 




AND 


AL,30H 




LEAVE ONLY READ/WRITE TYPE 


09B1 


3C 


10 




CMP 


AL,10H 




IS IT LSB ONLY? 


09B3 


74 


OE 




JE 


RES_006 






09B5 


3C 


20 




CMP 


AL,20H 




IS IT MSB ONLY? 


09B7 


74 


10 




JE 


RES_007 






09 B9 


8A 


CI 




MOV 


AL,CL 




OUT LSB FIRST THEN MSB 


09BB 


E6 


42 




OUT 


TIMER2,AL 






09BD 


8A 


C5 




MOV 


AL,CH 






09BF 


E6 


42 




OUT 


TIMER2,AL 






09C1 


EB 


OA 




JMP 


SHORT RES_ 


.008 




09C3 








RES_006: 








09C3 


8A 


CI 




MOV 


AL,CL 




WRITE LSB ONLY 


09C5 


E6 


42 




OUT 


TIMER2,AL 






09C7 


EB 


04 




JMP 


SHORT RES. 


.008 




09C9 








RES_007: 








09C9 


8A 


C5 




MOV 


AL,CH 




WRITE MSB ONLY 


09CB 


E6 


42 




OUT 


TIMER2,AL 












INITIALIZE INTERRUPT CONTROLLER 




09CD 








RES_008: 








09CD 


AC 






LODSB 






GET INTERRUPT MASK 


09CE 


8A 


EO 




MOV 


AH,AL 




AH HAS INTERRUPT MASK 


09D0 


AC 






LODSB 






GET INTERRUPT BYTE 


09D1 


8A 


F8 




MOV 


BH,AL 






09D3 


AC 






LODSB 






GET INTERRUPT BYTE 1 


09D4 


8A 


D8 


BUILD 


MOV 
AND RESTORE 


BL,AL 
ICW 1 






09D6 


24 


08 




AND 


AL,08H 




AND OFF ALL BUT LEVEL/EDGE 


09 D8 


OC 


10 




OR 


AL,10H 




BIT 4 MUST BE 1 


09DA 


E6 


20 


BUILD 


OUT 
AND RESTORE 


INTA00,AL 
ICW 2 




OUTPUT ICW1 


09DC 


8A 


C7 




MOV 


AL,BH 




GET INTERRUPT TYPE ASSIGN 


09DE 


24 


F8 




AND 


AL,0F8H 




ONLY SAVE ICW2 INFO 


09E0 


E6 


21 


BUILD 


OUT 
AND RESTORE 


INTA01.AL 
ICW 4 




SEND ICW 2 


09E2 


8A 


C3 




MOV 


AL.BL 




GET INTERRUPT BYTE 1 


09E4 


DO 


E8 




SHR 


AL,1 




GET AUTO EOI BIT CORRECT 


09E6 


24 


02 




AND 


AL,02 




SAVE ONLY AUTO EOI BIT 


09 E8 


E6 


21 




OUT 


INTA01,AL 




SEND ICW 4 








RESTORE INTERRUPT 


MASK REGISTER 




09 EA 


8A 


C4 




MOV 


AL,AH 




GET INTERRUPT MASK 


09 EC 


E6 


21 




OUT 


INTA01,AL 












RESTORE INTERRUPT 


VECTORS 


-32 TO RAM 




09EE 


B8 


0000 




MOV 


AX,0 






09F1 


8E 


CO 




MOV 


ES,AX 




SET SEGMENT 


09 F3 


BF 


0000 




MOV 


DI,0 




START AT VECTOR 


09F6 


B9 


0040 




MOV 


CX,64 




RESTORE 32 VECTORS 


09 F9 


F3/ A5 




REP 


MOVSW 







RESTORE VECTOR 44H 



ROM BIOS 2-57 



09FB BF 0110 
09FE A5 
09FF A5 



0A00 
0A03 
0A06 
0A08 
OAOB 
OAOE 
OAOF 



0A16 
0A18 
0A1B 
0A1D 
0A1F 
0A22 
0A25 
0A28 
0A2B 
0A2E 
0A31 



0A34 
0A39 
0A3E 
0A40 
0A45 
0A47 
0A4B 



MOV DI,44H*4 

MOVSW 

MOVSW 



; RESTORE VECTOR 44H 



BF 0300 
B9 0080 
F3/ A5 
83 C7 12 
83 C6 
AD 
8B E8 



10 



RESTORE DATA AREA FROM 0300-3FFH 

WARNING: CANNOT DO ANY STACK OPERATIONS FROM NOW UNTIL SS AND SP RESTORED 

; SET DESTINATION 
; 128 WORDS 



SKIP FROM 400H-410H 
SOURCE ADDRESSES OLD EQUIP_FLAG 
AX=PRE SUSPEND EQUIP_FLAG 
SAVE OLD EQUIP_FLAG 



0A11 B9 0095 
0A14 F3/ A5 



MOV 


DI.0300H 


MOV 


CX,128 


REP 


MOVSW 


ADD 


DI ,18 


ADD 


SI, 16 


LODSW 




MOV 


BP,AX 


TA AREA 


FROM 041 


MOV 


CX,149 


REP 


MOVSW 



CLEAR KEYBOARD BREAK PENDING FLAGS 



8C DB 

B8 R 

8E D8 
2B CO 
A3 00B5 R 
A3 00B7 R 
A2 0018 R 
A3 0072 R 
A2 OOBA R 
A2 0015 R 
A2 00B9 R 



RESTORE 149 WORDS 



SAVE RESTORE SEGMENT 
RESTORE DATA SEGMENT 



CLEAR KEY DEPRESSED BITS 
CLEAR RESET FLAG 
CLEAR KEY CLICK TRACKING 
CLEAR BATTERY STATUS FLAG 
CLEAR PORT 60 HOLDING REG 



CLEAR BIOS STATUS FLAGS , CAUSE TIMEOUT COUNTERS TO BE RELOADED AND 
A CHECK FOR DISKETTE CHANGE TO BE PERFORMED 



MOV 


BX,DS 


MOV 


AX, DATA 


MOV 


DS,AX 


SUB 


AX, AX 


MOV 


B_PEND1,AX 


MOV 


B_PEND2,AX 


MOV 


KB_FLAG_1,AL 


MOV 


RESET_FLAG,AX 


MOV 


LAST_CLICK_KEY,AL 


MOV 


BAT_STATUS,AL 


MOV 


P60_H0LD_BYTE,AL 



80 26 0016 R 04 

80 OE 0016 R 22 

8B C5 

80 26 0010 

24 30 

08 06 0010 

8B OE 0010 



R CF 



AND BIOS_STATUS,DCL_SUPPORTED ; SAVE DCL SUPPORT FLAG 

OR BIOS_STATUS,KYBD_ACTIVE+FORCE_DCL 

MOV AX,BP ; GET OLD EQUIPMENT INFO 

AND BYTE PTR EQUIP_FLAG,NOT INIT_DISP ; CLR NEW VIDEO FLAGS 

AND AL,INIT_DISP ; ONLY SAVE OLD VIDEO FLAGS 

OR BYTE PTR EQUIP_FLAG,AL ; MOV OLD VIDEO FLAGS TO EQUIP 

MOV CX,EQUIP_FLAG ; CX <— EQUIPMENT WORD 



RESTORE APPLICATION PROGRAMS STACK POINTER 



0A4F 8E DB 

0A51 8B FE 

0A53 BE 0000 

0A56 AD 

0A57 8B D8 

0A59 AD 

0A5A 8E D3 

0A5C 8B EO 

0A5E AC 

0A5F 50 

0A60 AD 

0A61 50 

0A62 8B F7 



MOV 

MOV 

MOV 

LODSW 

MOV 

LODSW 

MOV 

MOV 

LODSB 

PUSH 

LODSW 

PUSH 

MOV 



DS,BX 
DI,SI 
SI,0 

BX,AX 

SS,BX 
SP,AX 

AX 

AX 
SI,DI 



RESTORE SAVE AREA SEGMENT 
SAVE CURRENT PLACE 

GET SS VALUE 

SAVE IN BX 

GET SP VALUE 

RESTORE APPLICATION STACK 

GET RTC MODE 

SAVE ON STACK 

GET LCD AND VIDEO CONTROL 

SAVE ON STACK 

RESTORE POINTER 



RESTORE EQUIP WORD IN RTC RAM FROM SAVED WORD IN REGISTER CX 



0A64 
0A66 
0A68 
0A6B 
0A6D 
0A6F 



B4 13 
8A CI 
E8 0750 
FE C4 
8A C5 
E8 0750 



MOV 

MOV 

CALL 

INC 

MOV 

CALL 



AH,RTC_EQUIP_LO 

AL,CL 

PUT_RTC_NMI 

AH 

AL,CH 

PUT_RTC_NMI 



SAVE IN RTC EQUIPMENT AREA 
SAVE EQUIPMENT INFO IN RTC 



RELOAD KEYBOARD NMI CONTROL STATE 
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0A72 
0A73 
0A75 
0A77 
0A79 
0A7B 
0A7D 



0A8B 
0A8D 
0A90 
0A92 



OAAB 
OAAE 
OABO 
OAB1 
OAB3 
0AB5 
OAB7 



AC 

24 80 
8A D8 
E4 7C 
24 7F 
OA C3 
E6 7C 



LODSB 

AND 

MOV 

IN 

AND 

OR 

OUT 



AL,EN_KYBD_NMI 

BL,AL 

AL,KYBD_CNTL 

AL,NOT EN_KYBD_NMI 

AL,BL 

KYBD_CNTL,AL 



RETRIEVE FEATURE CONTROL 
LEAVE ONLY KEYBOARD STATE 
SAVE IN BL 

MASK CURRENT NMI STATE 
RESTORE KEYBOARD NMI STATE 
OUTPUT FEATURE CONTROL 



0A7F AC 
0A80 E6 AO 



0A82 AC 
0A83 E6 61 



0A85 E4 7F 
0A87 A8 40 
0A89 75 13 



RESTORE I/O CHANNEL CHECK FLAG 
IONMI_CNTL,AL 



LODSB 
OUT 



RESTORE NMI AND SPEAKER CONTROL REGISTER 
NMI_CNTL,AL 



LODSB 
OUT 



RESTORE POWER ENABLE TO MODEM 



IN 

TEST 

JNZ 



AL,PWR_STAT 

AL,EXT_PWR 

RES_009 



GET CURRENT POWER STATUS 

ON EXTERNAL POWER? 

JUMP IF ON EXTERNAL POWER 



CURRENTLY ON BATTERY POWER SO CHECK USER PROFILE FOR MODEM OPTIONS 



B4 17 
E8 0747 
A8 02 
75 OA 



MOV 
CALL 
TEST 
JNZ 



AH,RTC_SYS_PR0F1 
GET_RTC_NMI 
AL,MODEM_BATT 
RES_009 



OPERATE C0M1 ON BATTERY? 
YES THEN JUMP 



ON BATTERY POWER AND MODEM PROFILE INDICATES NO BATTERY OPERATION 



0A94 B3 02 

0A96 2A FF 

0A98 E8 0000 E 

0A9B EB 09 90 



0A9E 

0A9E B4 ID 

OAAO E8 0747 R 

0AA3 E8 0000 E 



0AA6 

0AA6 2A DB 

0AA8 E8 0B04 R 



MOV 
SUB 
CALL 
JMP 



BL,ACT_MODEM 
BH,BH 
COM_POWER 
RES_010 



SPECIFY MODEM OFF 
INDICATE POWER OFF REQUEST 
TURN OFF PRIMARY COM POWER 
SKIP MODEM _CONFIG 



MODEM IS POWERED ON SO RESUME CONFIGURATION 



RES_009: 
MOV 
CALL 
CALL 



GET MODEM PROFILE 
GO SETUP MODEM CONFIGURATION 
RESTORE COMMUNICATION CONTROLLERS STATE AT POWER OFF TIME 



AH,RTC_M0D_PR0F1 

GET_RTC_NMI 

MODEM_CONFIG 



RESJD10: 
SUB 
CALL 



BL,BL 
ASYNC_SUSPEND 



8E D8 
58 

24 BF 
E6 75 
A8 08 
74 04 



TURN OFF FONT ACCESS AND ENABLE PANEL 

MOV AX, DATA 

MOV DS,AX 

POP AX 

AND AL,NOT PANEL_ENABLE 

OUT LCD_DATA,AL 

TEST AL,LCD_ENAB 

JZ RES010A 

ENABLE PANEL IF LCD WAS ENABLED 



SET RESUME CODE FOR RESTORING 
OF COMMUNICATION STATE 



SET DATA SEGMENT ADDRESS 

RETRIEVE VIDEO FLAGS 

FORCE PANEL OFF 

RESTORE LCD CONTROL 

CHECK FOR LCD ENABLED 

ONLY ENABLE PANEL IF LCD ENABLED 



0AB9 OC 60 
OABB E6 75 



OR 
OUT 



AL,SYNC_ENABLE+PANEL_ENABLE 
LCD_DATA,AL ; 



ENABLE PANEL 



RESTORE ACTIVE VIDEO MODE CONTROL REGISTER 



OABD 

OABD 8B 16 0063 R 

0AC1 83 C2 04 

0AC4 8A C4 

0AC6 EE 



RES010A: 
MOV 
ADD 
MOV 
OUT 



DX,ADDR_6845 
DX,4 
AL,AH 
DX,AL 



GET RESTORE VIDEO MODE 
RESTORE VIDEO MODE 
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ENABLE DISKETTE NMI'S 



0AC7 E4 77 
0AC9 OC 80 
OACB E6 77 



IN 
OR 
OUT 



AL,DSKT_CNTL 

AL,DSKT_NMI 

DSKT_CNTL,AL 



ENABLE DISKETTE POWER ON NMI 



OACD B4 21 

OACF E8 0747 R 

0AD2 8A F8 

0AD4 58 

0AD5 F6 C7 10 

0AD8 74 07 

OADA 80 OE OOAO R 02 

OADF 24 DF 



SET REAL TIME CLOCK ALARM FLAG IF POWERED ON BY ALARM 

GET SYSTEM STATUS 



0AE6 
0AE9 
OAEB 
OAEC 
OAEF 
OAFO 
0AF3 



BA 027A 

BO OC 

EE 

80 C6 01 

EE 

BA 03BE 

EE 



0AF4 E4 7F 

0AF6 OC 04 

0AF8 24 F7 

OAFA E6 7F 



MOV 

CALL 

MOV 

POP 

TEST 

JZ 

OR 
AND 

RES_011: 



AH,RTC_SYS_STAT 

GET_RTC_NMI 

BH,AL 

AX 

BH,PON_ALRM 

RES_011 



; BH <-- SYS_STATUS 
; RETRIEVE RTC MODE 
; POWERED ON BY ALARM? 



RTC_WAIT_FLAG,ALARM_PEND ; SET ALARM PENDING 
AL,NOT AIE_ENABLE ; TURN OFF ALARM IF POWERED 
; ON BY IT 



RESTORE REAL TIME CLOCK INTERRUPT MODE 



0AE1 B4 OB 
0AE3 E8 0750 R 



MOV 
CALL 



AH,RTC_MODE 
PUT_RTC_NMI 



ENABLE PRINTER PORTS 



MOV 
MOV 
OUT 
ADD 
OUT 
MOV 
OUT 



DX,27AH 

AL,OCH 

DX,AL 

DH,1 

DX,AL 

DX,03BEH 

DX,AL 



ENABLE SYSTEM SUSPEND NMI 



IN 
OR 
AND 
OUT 



AL,PWR_STAT 
AL,EN_SUS_NMI 
AL,NOT HDWR_RESET 
PWR_STAT,AL 



START WITH SECONDARY 



DO PRIMARY 

DO MONO PRINTER PORT 



; ENABLE SUSPEND NMI 
; RESET FLAG 



OAFC 

OAFC E8 0000 E 



OAFF CD 6C 



0B01 E9 0050 R 
0B04 



ISSUE RESUME VECTOR CALL 

RES_012: 

CALL ENABLE_NMI 

ISSUE RESUME VECTOR CALL 

INT 6CH 



JMP 
RESUME 



NMIH_EXIT 
ENDP 



; ENABLE NMI'S 



ALLOW OP/SYS TO CORRECT 
REAL TIME INFORMATION 
EXIT TO USERS PROGRAM 



SUBTTL ASYNC SAVE/RESTORE 
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ASYNC_SUSPEND THIS SAVES OR RESTORES THE REGISTERS OF THE 
8250 ASYNC CHIP. USED IN SUSPEND AND RESUME. 
ES:DI MUST BE SET TO FIRST BYTE ON ENTRY FOR 
SUSPEND, DS:SI MUST BE SET UP TO FIRST BYTE 
FOR RESUME. SI OR DI IS INCREASED BY 14 ON EXIT. 

THE DATA STATUS BYTE AND THE 8250 REGISTERS FOR 
THE ASYNC PORT ARE STORED IN RAM AS FOLLOWS: 

BYTE 1 - DATA STATUS (OAAH = GOOD) 

BYTE 2 - 8250 LINE CONTROL REG 

BYTE 3 - 8250 MODEM CONTROL REG 

BYTE 4 - 8250 SCRATCH REG 

BYTE 5 - 8250 INTERRUPT CTL REG 

BYTE 6 - 8250 DIVISOR LATCH (MSB) 

BYTE 7 - 8250 DIVISOR LATCH (LSB) 
THE MODEM 8250 REGISTERS AND DATA STATUS BYTE 
ARE STORED IN THE SAME FORMAT IN THE NEXT 7 BYTES. 

INPUT BL=0 : RESTORES REGISTERS (RESUME) 

BL=1 : SAVE REGISTERS (SUSPEND) 
DIRECTION FLAG=0 

DS:SI = BEGINNING OF DATA AREA FOR RESUME. 
ES:DI = BEGINNING OF DATA AREA FOR SUSPEND 



REGISTERS USED 



BX DESTROYED 

14 ADDED TO SI (RESUME) OR DI (SUSPEND). 



= OOAA 



0B04 



LOCAL EQUATES 

GOOD_DATA EQU OAAH 

ASYNC_SUSPEND PROC NEAR 



THIS MEANS THAT THE FOLLOWING 6 
BYTES ARE VALID SUSPEND DATA 



0B04 50 
0B05 52 



0B06 B4 

0B08 E8 

OBOB 8A 

OBOD BA 

0B10 EC 

0B11 86 

0B13 50 



0B14 BA 

0B17 F6 

0B1A 74 

0B1C 81 



0B20 A8 
0B22 75 
0B24 2B 



IF 

0747 R 
EO 
007C 

C4 



02 F8 
C4 01 
04 
C2 0100 



PUSH 
PUSH 



AX 
DX 



SAVE REGISTERS USED 



-GET RTC_FEAT_CON AND KYBD_CNTL TO SEE WHO IS INSTALLED 



MOV 

CALL 

MOV 

MOV 

IN 

XCHG 

PUSH 



AH,RTC_FEAT_CON 

GET_RTC_NMI 

AH,AL 

DX,KYBD_CNTL 

AL,DX 

AL,AH 

AX 



GET ASYNC INSTALLATION INFO 

FROM REAL TIME CLOCK RAM 

SAVE FEATURE REGISTER 

ADDRESS THE POWER CONTROL REG 

AND READ IT 

EXCHANGE BYTES 

SAVE FOR LATER (REST_MODEM) 



-GET ADDRESS OF ASYNC PORT, EVEN IF NOT PRESENT 



MOV 
TEST 
JZ 
ADD 



DX,2F8H 

AH,SET_RS232_PRIM 

SV1 

DX,100H 



-IS ASYNC INSTALLED AND ON? 

SV1: TEST AL,SERPLL_INST 
JNZ SV2 
SUB AX, AX 



ADDRESS OF SECONDARY PORT 
TEST FOR ASYNC BEING PRIMARY 
SKIP IF NOT 
CHANGE TO PRIMARY ADDRESS IF SO 



TEST FOR SER/PAR INSTALLED 

YES, GO TO NEXT TEST 

NO, FORCE TO FAIL NEXT TEST 



0B26 F6 
0B29 74 
0B2B BO 



C4 04 

02 

AA 



SV2: TEST AH,ACT_RS232 
JZ SV3 
MOV AL,GOOD_DATA 



TEST FOR ASYNC POWER ON 
NO, AL=0 TO INDICATE BAD 
YES, SET AL TO INDICATE GOOD 



0B2D E8 0B47 R 



-DO THE SUSPEND OR RESUME 

SV3: CALL ASY_RES_SUS 
-IS MODEM INSTALLED AND ON? 



RESUME OR SUSPEND ASYNC 



0B30 

0B30 58 
0B31 A8 



40 



REST_MODEM: 
POP AX 
TEST AL,INTMOD_INST 



RETRIEVE FEATURE AND KYBD REGS 
TEST FOR INTERNAL MODEM 
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0B33 75 02 

0B35 2B CO 

0B37 F6 C4 02 

0B3A 74 02 

0B3C BO AA 



0B3E BA 03 F8 



0B41 E8 0B47 R 



0B44 5A 

0B45 58 

0B46 C3 

0B47 



JNZ 
SUB 



SV4 
AX, AX 



SV4: TEST AH,ACT_M0DEM 
JZ SV5 
MOV AL,GOOD_DATA 



; YES, DO NEXT TEST 

; NO, FORCE FAILURE OF NEXT TEST 

; TEST FOR MODEM POWER ON 

; NO, LEAVE AL=0 

; YES, SET AL=GOOD_DATA 



-GET ADDRESS OF MODEM EVEN IF NOT THERE 



SV5: MOV DX,3F8H 
-CALL SUSPEND/RESUME 

CALL ASY_RES_SUS 



-FINISHED 

POP 
POP 
RET 



DX 
AX 



ADDRESS MODEM PORT 



RESUME OR SUSPEND MODEM 



RESTORE REGISTERS 



ASYNC_SUSPEND ENDP 



ASY_RES_SUS 



INPUT 



THIS PROCEDURE SAVES OR RESTORES THE ASYNC PORTS 
REGISTERS. 

AL=0 IF PORT IS NOT POWERED ON. 
AL=GOOD_DATA BYTE IF PORT IS WORKING. 
BL=0 IF RESUME, BL!=0 IF SUSPEND. 
DX=PORT BASE ADDRESS 









REGISTERS 


USED 


AL, 


DX 








0B47 


ASY_RES_SUS PROC 


NEAR 






0B47 
0B49 


02 
74 


DB 
2B 




ADD 
JZ 


BL,BL 
ASY_RESUME 




ARE WE RESUMING OR SUSPENDING? 
RESUMING 








SUSPEND COMMAND 










0B4B 
0B4B 
0B4C 
0B4E 


AA 
22 
74 


CO 
22 


ASY_SUSPEND: 
STOSB 

AND AL,AL 
JZ AS1 


YES 


, STORE 


STORE FIRST BYTE (GOOD OR BAD) 
IS PORT WORKING? 
NO, DO NOT STORE REGISTERS 
ALL REGISTERS 


0B50 
0B51 
0B52 
0B53 
0B54 


42 
42 
42 
EC 
AA 






INC 

INC 

INC 

IN 

STOSB 


DX 
DX 
DX 
AL,DX 






ADDRESS THE LINE CTL REG 

READ FROM 8250 

AND STORE IN DATA AREA 


(XF9) 
(XFA) 
(XFB) 


0B55 
OB57 


24 
EE 


7F 




AND 
OUT 


AL,7FH 
DX,AL 






ASSURE THAT DLAB BIT IS ZERO 


0B58 
0B59 
0B5A 


42 
EC 
AA 






INC 

IN 

STOSB 


DX 
AL,DX 






ADDRESS MODEM CONTROL REG 
READ 
, STORE IN DATA AREA 


(XFC) 


0B5B 
0B5C 
0B5D 
0B5E 
0B5F 


42 
42 
42 
EC 
AA 






INC 

INC 

INC 

IN 

STOSB 


DX 
DX 
DX 
AL,DX 






, ADDRESS SCRATCH REG 

\ READ FROM 8250 
, STORE IN RAM 


(XFD) 
(XFE) 
(XFF) 


0B60 
0B63 
0B64 


83 
EC 
AA 


EA 06 




SUB 

IN 

STOSB 


DX,6 
AL,DX 






, ADDRESS INT'R ENABLE REG 
, READ FROM 8250 
, STORE IN RAM 


(XF9) 


0B65 
0B66 
0B67 
0B69 


42 
42 
BO 
EE 


80 




INC 
INC 
MOV 
OUT 


DX 
DX 

AL,80H 
DX,AL 






(XFA) 
; ADDRESS LINE CTL REG AGAIN (XFB) 
; SET DLAB BIT TO 1 TO READ BAUD 
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0B6A 


4A 




DEC 


DX ; 


0B6B 


4A 




DEC 


DX 


0B6C 


EC 




IN 


AL,DX ; 


0B6D 


AA 




STOSB 




0B6E 


4A 




DEC 


DX ; 


0B6F 


EC 




IN 


AL,DX ; 


0B70 


AA 




STOSB 




0B71 


C3 




RET 




0B72 


83 


C7 06 


ASl: ADD DI,6 ; 


0B75 


C3 




RET 










---RESUME COMMAND 


0B76 






ASY_RESUME 




0B76 


22 


CO 


AND 


AL,AL ; 


0B78 


74 


2F 


JZ 


AS2 ; 


0B7A 


AC 




LODSB 




0B7B 


3C 


AA 


CMP 


AL,GOOD_DATA ; 


0B7D 


75 


2B 


JNE 


AS3 ; 


0B7F 


AC 




LODSB 




0B80 


50 




PUSH 


AX ; 


0B81 


42 


' 


INC 


DX ; 


0B82 


42 




INC 


DX ; 


0B83 


42 




INC 


DX 


0B84 


2A 


CO 


SUB 


AL,AL ; 


0B86 


EE 




OUT 


DX,AL ; 


0B87 


42 




INC 


DX ; 


0B88 


AC 




LODSB 




0B89 


EE 




OUT 


DX,AL • 


0B8A 


42 




INC 


DX ; 


0B8B 


42 




INC 


DX ; 


0B8C 


42 




INC 


DX ; 


0B8D 


AC 




LODSB 




0B8E 


EE 




OUT 


DX,AL ; 


0B8F 


83 


EA 07 


SUB 


DX,7 ; 


0B92 


EC 




IN 


AL,DX ; 


0B93 


EC 




IN 


AL,DX 


0B94 


42 




INC 


DX ; 


0B95 


AC 




LODSB 




0B96 


EE 




OUT 


DX,AL 


0B97 


42 




INC 


DX ; 


0B98 


42 




INC 


DX ; 


0B99 


BO 


80 


MOV 


AL,80H 


0B9B 


EE 




OUT 


DX,AL ; 


0B9C 


4A 




DEC 


DX 


0B9D 


4A 




DEC 


DX ; 


0B9E 


AC 




LODSB 




0B9F 


EE 




OUT 


DX,AL ; 


OBAO 


4A 




DEC 


DX ; 


OBA1 


AC 




LODSB 


; 


0BA2 


EE 




OUT 


DX,AL ; 


OBA3 


42 




INC 


DX ; 


0BA4 


42 




INC 


DX ; 


0BA5 


42 




INC 


DX ; 


0BA6 


58 




POP 


AX 


OBA7 


EE 




OUT 


DX,AL 


0BA8 


C3 




RET 


; 


0BA9 


46 




AS2: INC SI ; 


OBAA 


83 


C6 06 


AS3: ADD SI, 6 


OBAD 


C3 




RET 





(XFA) 
(XF9) 



(XF8) 



ADDRESS BAUD MSB 

READ FROM 8250 

SAVE 

ADDRESS OTHER BAUD BYTE 

READ FROM 8250 

SAVE 

EXIT 

SKIP OVER DATA AREA 

EXIT 



IS PORT OPERATING? 

NO, DO NOT RESTORE 

YES, LOOK AT STORED DATA 

IS IT GOOD? 

NO, DO NOT RESTORE 

YES, SO RESTORE 8250 

GET LINE CONTROL REG FROM RAM 

STORE ON STACK 

(XF9) 
(XFA) 

ADDRESS LINE CTL REG (XFB) 

SET DLAB BIT 

TO ALLOW NORMAL ADDRESSING 

ADDRESS MODEM CONTROL REG(XFC) 
GET FROM RAM 
AND RESTORE 8250 

(XFD) 
(XFE) 

ADDRESS SCRATCH REG (XFF) 

GET FROM RAM 

AND WRITE TO 8250 

ADDRESS DATA REG (XF8) 
GET ANY TRASH CHRS 



ADDRESS INTR CTL REG 

GET FROM RAM 

AND WRITE TO 8250 



(XF9) 



(XFA) 
ADDR LINE CONTROL REG(XFB) 
SET DLAB BIT = 1 
IN 8250 

(XFA) 
(XF9) 

GET BAUD MSB FROM RAM 

AND INTO 8250 

ADDR BAUD LSB (XF8) 

GET FROM RAM 

AND INTO 8250 

(XF9) 
(XFA) 

ADDRE LINE CONTROL AGAIN (XFB) 

PULL OFF STACK 

AND PUT IN 8250 



CORRECT ADDRESS COUNT 
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OBAE ASY_RES_SUS ENDP 



OBAE ROMCODE ENDS 

END 
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Keyboard Services (B11KYBD) 



0000 



TITLE B11KYBD BIOS KEYBOARD ROUTINES 

ROMCODE SEGMENT BYTE PUBLIC 
IDENT B11KYBD,I1,00 

********************************************************************** 

MODULE-NAME : B11KYBD 

DATE LAST MODIFIED: 9/16/85 

DESCRIPTIVE-NAME : THIS MODULE CONTAINS THE BIOS INTERRUPT 9 

KEYBOARD HANDLER AND THE ASSOCIATED INTERRUPT 16 
KEYBOARD SERVICE ROUTINES. 

COPYRIGHT : 7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 

CHANGE LEVEL: 0.0 



FUNCTION: 



KYBD_INT9 - INTERRUPT 9 KEYBOARD HANDLER (HARDWARE INT 1) 
ROUTINE TO READ SCAN CODES FROM PORT 60H AND 
CONVERT THEM TO ASCII CODES AND QUEUE IN THE 
BIOS KEYBOARD BUFFER. 

KYBD_IO - KEYBOARD I/O ROUTINES TO ACCESS THE ASCII 
KEYBOARD BUFFER. (INT 16H) 

MODULE SIZE: 945 BYTES 

EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 

EXTERNALLY REFERENCED DATA AREAS: REFER TO EXTRN LIST 

CHANGE ACTIVITY: NONE 
********************************************************************** 

***************************************************************** 

* PUBLICS * 
***************************************************************** 

PUBLIC KYBD_IO 
PUBLIC KYBD_INT9 

***************************************************************** 

* EXTERNALREFERENCES * 
***************************************************************** 



EXTRN DCS :NEAR 
EXTRN START: NEAR 
EXTRN KB_NOISE:NEAR 



TABLES 



EXTRN K6:BYTE 

EXTRN K6L:ABS 

EXTRN K7:BYTE 

EXTRN K8:BYTE 

EXTRN K9:BYTE 

EXTRN K10:BYTE 
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EXTRN 


Kll 


BYTE 






EXTRN 


K12 


BYTE 






EXTRN 


K13 


BYTE 






EXTRN 


K14 


BYTE 






EXTRN 


K15 


BYTE 






EXTRN 


K30 


BYTE 






; LOCAL EQUATES 








0035 


P60_SLASH 


_SC 


EQU 


35H 


0037 


P60_ASTRK_SC 


EQU 


37H 


0057 


F11_MAKE_ 


SC 


EQU 


057H 


0058 


F12_MAKE_ 


SC 


EQU 


058H 


0085 


F11_BASE_ASCII 


EQU 


085H 



P60 MAKE SC FOR BASE / 

P60 MAKE SC FOR BASE * 

Fll MAKE SC AT NMI & P60 LEVEL 

F12 MAKE SC AT NMI & P60 LEVEL 

Fll EXTENDED ASCII (BASE) 



Keyboard Interrupt Hex 16 (KYBD-IO) 



**** j^t ^ 6H *********************************************************** 

ROUTINE NAME: KYBD_IO (INT 16H) 

FUNCTION: PROVIDE ACCESS TO THE ASCII KEYBOARD BUFFER AND CLICKER. 

INPUT CONDITIONS: 

(AH)=0 PROCESS SYSTEM REQUEST KEY IF THE KEY IS ACTIVE ELSE 

READ THE NEXT ASCII CHARACTER STRUCK FROM THE KEYBOARD 
RETURN THE RESULT IN (AL) , SCAN CODE IN (AH) 

(AH)=1 PROCESS SYSTEM REQUEST KEY IF THE KEY IS ACTIVE ELSE 
RESET THE Z FLAG TO INDICATE IF AN ASCII CHARACTER IS 
AVAILABLE TO BE READ. 

(ZF)=1 — NO CODE AVAILABLE 

(ZF)=0 -- CODE IS AVAILABLE 

IF ZF = 0, THE NEXT CHARACTER IN THE BUFFER TO BE READ 
IS IN AX, AND THE ENTRY REMAINS IN THE BUFFER 

(AH)=2 RETURN THE CURRENT SHIFT STATUS IN AL REGISTER 

THE BIT SETTINGS FOR THIS CODE ARE INDICATED IN THE 
THE EQUATES FOR KB_FLAG 

(AH)=4 TURN ON/OFF KEYBOARD CLICK STATE BY THE VALUE IN AL 

AS FOLLOWS: 
(AL)=0 -- TURN OFF KEYBOARD CLICK. 
(AL)=1 -- TURN ON KEYBOARD CLICK. 

AL IS RANGE CHECKED. THE STATE IS UNALTERED IF 

AL <> 1,0. 

NOTE: FUNCTION CALLS OTHER THAN THE ABOVE RESULT IN NO OPERATION 

EXIT CONDITIONS: FUNCTIONS 0, 2, 4 - IRET BACK TO CALLER 
FUNCTION 1 - RET 2 BACK TO CALLER 

REGISTERS MODIFIED: AX, Z FLAG 

INTERRUPTS: FOR FUNCTIONS 2 AND 4, I FLAG IS LEFT AS IS 

FOR FUNCTION 0, INTERRUPTS ARE FORCED OFF (CLI) AND FORCED 

(STI) BEFORE DOING IRET 
FOR FUNCTION 1, INTERRUPTS ARE FORCED OFF (CLI) AND FORCED 

(STI) BEFORE DOING RET 2 

INTERNALLY REFERENCED ROUTINES: PTR_INC 
EXTERNALLY REFERENCED ROUTINES: DDS, INT 15H 



2-66 ROM BIOS 



ASSUME cs:ROMCODE,CS:DATA 



0000 












KYBD.IO PROC FAR 






0000 


IE 










PUSH 


DS 




SAVE CURRENT DS 


0001 


53 










PUSH 


BX 




, SAVE BX TEMPORARILY 


0002 


E8 


0000 E 






CALL 


DDS 






0005 


OA 


E4 








OR 


AH, AH 




AH=0 


0007 


74 


10 








JZ 


Kl 




ASCII_READ 


0009 


FE 


CC 








DEC 


AH 




AH=1 


000B 


74 


2B 








JZ 


K2 




ASCII.STATUS 


OOOD 


FE 


CC 








DEC 


AH 




AH=2 


000 F 


74 


38 








JZ 


K3 




SHIFT_STATUS 


0011 


80 


EC 


02 






SUB 


AH, 2 




,AH=4 


0014 


74 


39 








JZ 


K4 




CLICK_STATE 


0016 


EB 


49 


90 






JMP 


KYBD_END 




EXIT 














READ THE KEY 
Kl: 


TO FIGURE 01 


IT WHAT TO nn 


0019 












J 1 nl\r\ 1 1 V 


ASCII READ 


0019 


FA 










CLI 






INTERRUPTS OFF 


001A 


8B 


IE 


001A 


R 




MOV 


BX,BUFFER_HEAD 


GET POINTER TO HEAD OF BUFFER 


001E 


3B 


IE 


001C 


R 




CMP 


BX,BUFFER_TAIL 


CHECK FOR HEAD = TAIL 


0022 


75 


08 








JNE 


K1_A 




JUMP IF SOMETHING IN BUFFER 










ISSUE KEYBOARD BUSY WAIT 






0024 


B8 


9002 






MOV 


AX,09002H 




CALL KEYBOARD BUSY HANDLER 


0027 


CD 


15 








INT 


15H 






0029 


FB 










STI 






INTERRUPTS ON 








; 


BIOS 


INT 15H WILL 


RETURN HERE 


WHEN HEAD <> TAIL 


002A 


EB 


ED 


[ 






JMP 


Kl 




LOOP BACK TO WAIT FOR BFR NOT EMP 








; 


DATA 


IN KEYBOARD 


BUFFER 






002C 






' 






K1_A: 








002C 


8B 


07 








MOV 


AX,[BX] 




GET SCAN CODE AND ASCII CODE 


002E 


E8 


03A4 R 






CALL 


PTR_INC 




MOVE POINTER TO NEXT POSITION 


0031 


89 


IE 


001A 


R 




MOV 


BUFFER_HEAD 


BX 


STORE VALUE IN VARIABLE 


0035 


EB 


2A 


90 






JMP 
ASCII STATUS 
K2: 


KYBD_END 




RETURN 


0038 


















0038 


FA 










CLI 






, INTERRUPTS OFF 


0039 


8B 


IE 


001A 


R 




MOV 


BX,BUFFER_HEAD 


GET HEAD POINTER 


003D 


3B 


IE 


001C 


R 




CMP 


BX,BUFFER_TAIL 


IF EQUAL (Z=l) THEN NOTHING THERE 


0041 


8B 


07 








MOV 


AX,[BX] 






0043 


FB 










STI 






, RE-ENABLE INTERRUPTS 


0044 


5B 










POP 


BX 




RECOVER REGISTER 


0045 


IF 










POP 


DS 




, RECOVER SEGMENT 


0046 


CA 


0002 






RET 


2 




THROW AWAY FLAGS 














SHIFT STATUS 








0049 












K3: 








0049 


AO 


0017 R 






MOV 


AL,KB_FLAG 




, GET THE SHIFT STATUS FLAGS 


004C 


EB 


13 


90 






JMP 
CLICK STATE 


KYBD.END 




, RETURN 


004F 












K4: 








004F 


OA 


CO 








OR 


AL,AL 




, TURN OFF KEYBOARD CLICK ? 


0051 


75 


05 








JNZ 


K5 




, JUMP FOR RANGE CHECK 


0053 


80 


26 


00B4 


R 


F7 


AND 


KB_NMI_CNTL 


NOT CLIC 


<_0N ; TURN OFF CLICK 


0058 












K5: 








0058 


3C 


01 








CMP 


AL,1 




, RANGE CHECK 


005A 


75 


05 








JNE 


KYBD.END 




, NOT IN RANGE, RETURN 


005C 


80 


OE 


00 B4 


R 


08 


OR 


KB_NMI_CNTL 


,CLICK_ON 


; TURN ON KEYBOARD CLICK 


0061 












KYBD_END: 








0061 


5B 










POP 


BX 




, RECOVER REGISTER 



ROM BIOS 2-67 



0062 IF 

0063 CF 



0064 



DS 
KYBD_I0 ENDP 



POP 
I RET 



RECOVER REGISTERS 
RETURN TO CALLER 



Level 1 Interrupt Hex 9 (KYBD-INT9) 



INT 9 



************************************************************* 



ROUTINE-NAME 



KYBD_INT9 



FUNCTION: THIS ROUTINE IS ACTIVATED BY A INTERRUPT 9 (HARDWARE INT 1) 
IT READS PORT 60 AND PROCESSES THAT SCAN CODE BY EITHER SETTING/ 
RESETTING ITS FLAG OR TRANSLATING THE SCAN CODE INTO AN EXTENDED 
ASCII CODE AND PLACING IT IN THE ASCII BUFFER. THIS INTERRUPT 
SERVICE ROUTINE TRIGGERS THE KYBD_CLR NMI. THE NMI DOES NOT 
GO INTO EFFECT UNTIL A NON-SPECIFIC EOI IS DONE NEAR THE EXIT OF 
THIS ROUTINE. 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: PROCESS THE SCAN CODE IN PORT 60H 
INPUT CONDITIONS: cs: ROMCODE SEGMENT 
RESTRICTIONS: 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: ASCII BFR HAS 2 BYTE EXTENDED ASCII CODE 

ERROR EXIT CONDITIONS: N/A 

REGISTERS MODIFIED: NONE 

INTERRUPTS: FORCED ON UPON ENTRY (STI) 

INTERNALLY REFERENCED ROUTINES: PTR_INC 

EXTERNALLY REFERENCED ROUTINES: DDS, INT 5H, KB_NOISE, INT 15H, INT 1BH, 

********************************************************************** 



0064 






KYBD_INT9 


PROC FAR 




0064 


FB 




STI 




ALLOW FURTHER INTERRUPTS 


0065 


50 




PUSH 


AX 




0066 


53 




PUSH 


BX 




0067 


51 




PUSH 


CX 




0068 


52 




PUSH 


DX 




0069 


56 




PUSH 


SI 




006A 


57 




PUSH 


DI 




006B 


IE 




PUSH 


DS 




006C 


06 




PUSH 


ES 




006D 


FC 




CLD 




FORWARD DIRECTION 


006E 


E8 


0000 E 


CALL 


DDS 




0071 


E4 


60 


IN 


AL,KB_DATA 


READ IN THE CHARACTER 


0073 


50 




PUSH 


AX 


SAVE IT 


0074 


E4 


61 


IN 


AL,KB_CTL 


GET THE CONTROL PORT 


0076 


8A 


EO 


MOV 


AH,AL 


SAVE VALUE 


0078 


OC 


80 


OR 


AL,80H 


RESET BIT FOR KEYBOARD 


007A 


E6 


61 


OUT 


KB_CTL,AL 




007C 


86 


EO 


XCHG 


AH,AL 


GET BACK ORIGINAL CONTROL 


007E 


E6 


61 


OUT 


KB_CTL,AL 


KB HAS BEEN RESET 

NOTE: THIS WILL GENERATE A 

KB_CLR NMI UPON INT9 EOI. 


0080 


58 




POP 


AX 


RECOVER SCAN CODE 



ALLOW OPERATING SYSTEM INTERCEPT (INT 15 FUNCTION 4FH) 
(AH = 4FH , AL = SCAN CODE) 



0081 



4F 



MOV 



AH,4FH 



2-68 ROM BIOS 



0083 


F9 




0084 


CD 


15 


0086 


73 


60 


0088 


8A 


EO 


008A 


F6 


06 0096 


008F 


74 


21 


0091 


80 


36 0096 


0096 


80 


FC 35 


0099 


74 


05 


009B 


80 


FC 37 


009 E 


75 


12 


00A0 






OOAO 


F6 


06 0018 


00A5 


75 


03 


00A7 


E9 


032D R 


OOAA 


80 


26 0018 


OOAF 


E9 


0396 R 


00B2 


3C 


EO 



00C5 
00C5 
00C7 
00C9 
OOCE 
OODO 
0OD5 
00D7 
00 D9 
00D9 
OODB 
OODD 
00E2 



OOEB 
OOEB 
OOED 
OOEE 
OOEF 
00F2 
00F5 
00F7 
00 F9 
OOFB 



OOFE 
0102 



STC 

INT 15H 

JNC K14_S4 



MOV 



AH,AL 



KEYPAD /,* MAKES 



R 02 



R 02 



R 08 



K6. 



R F7 K6. 



TEST 
JZ 
XOR 
CMP 
JE 
CMP 
JNE 
.1: 
TEST 
JNZ 
JMP 
.5: 
JMP 



KB_FLAG_3,LC_HC 

K9_l 

KB_FLAG_3,LC_HC 

AH,P60_SLASH_SC 

K6_l 

AH,P60_ASTRK_SC 

K9_l 



PRE SET CARRY FOR INTERCEPT CHECK 

IF NO CARRY THEN VECTOR INTERCEPT 
ELSE PROCESS KEY HERE: 
SAVE SCAN CODE IN AH ALSO 



HAS AN EOH BEEN PROCESSED? 

NO, JUMP 

YES, RESET FLAG 

KEYPAD / KEY? 

Y.ES, JUMP 

KEYPAD * KEY? 

NO, JUMP 



KB_FLAG_1,H0LD_STATE 
K6_5 ; 

K55 ; 



IN HOLD STATE? 
YES, AROUND 

NO, JUMP LEAVING /,* AS IS 
AND KB_FLAG_1,N0T HOLD_STATE ; RST HLD ST, DISCARD KEY 
KYBD9_EXIT ; EXIT INT9 ROUTINE 



HIDDEN CODE 



EOH - 



00B4 75 08 

00B6 80 OE 0096 R 02 

OOBB E9 0396 R 



K9_l: 
JNE 
OR 
JMP 



CMP 



AL,HIDN^.CODE_EO ; IS P60 SC A HIDDEN CODE? 



K10_l 

KB_FLAG_3,LC_HC 

KYBD9_EXIT 



OVERRUN SC 



FFH 



OOBE 3C FF 
OOCO 75 03 
00C2 E9 0386 R 



K10_l: 
JNZ 
JMP 



CMP AL,OFFH 
K14_S1 
K62 



NO, JUMP 
SET FLAG 
EXIT ROUTINE 



IS THIS AN OVERRUN CHAR 
NO, TEST FOR SYS REQ KEY 
BUFFER_FULL_BEEP 



SYSTEM REQUEST MAKE/BREAK (INT 15H FUNCTION 85H) 



3C 54 

75 10 

F6 06 0018 

75 18 

80 OE 0018 

BO 00 

EB OB 

3C D4 
75 OE 

80 26 0018 
BO 01 



R 04 



R 04 



R FB 



00E4 

00E4 B4 85 

00E6 CD 15 

00E8 

00E8 E9 0396 R 



K14_S1: 
CMP 
JNE 
TEST 
JNZ 
OR 
MOV 
JMP 

K14_S2: 
CMP 
JNE 
AND 
MOV 

K14_S3: 
MOV 
INT 

K14_S4: 
JMP 



AL,SYSREQ_MAKE 

K14_S2 

KB_FLAG_1,SYS_SHIFT 

K14_S4 

KB_FLAG_1,SYS_SHIFT 

AL,00 

SHORT K14_S3 



SYSTEM REQUEST KEY MAKE ? 

NO, GO LOOK FOR BREAK 

ALREADY DEPRESSED ? 

IF SO THEN THROW AWAY MAKE 

SET SYS REQ DEPRESSED FLAG 

SET MAKE FLAG 

GO DO THE INT 15H 



AL,SYSREQ_BREAK ; SYSTEM REQUEST KEY BREAK ? 
K16 ; NO, GO TEST FOR SHIFT KEYS 

KB_FLAG_1,N0T SYS_SHIFT ; RESET SYS REQ DEPRESSED FLAG 
AL,01 ; SET REQUEST BREAK FLAG 



AH,85H 
15H 



KYBD9_EXIT 



TEST FOR SHIFT KEYS 



K16: 



24 7F 

OE 

07 

BF 0000 E 

B9 0000 E 

F2/ AE 

8A C4 

74 03 

E9 0187 R 



AND 

PUSH 

POP 

MOV 

MOV 

REPNE 

MOV 

JE 

JMP 



AL,07FH 

CS 

ES 

DI, OFFSET K6 

CX, OFFSET K6L 

SCASB 

AL,AH 

K17 

K24_0 



SHIFT KEY FOUND 



81 EF 0001 E 
2E: 8A A5 0000 E 



K17: 
MOV 



SUB DI, OFFSET K6+1 

AH,cs:K7[DI] 



SET SYSTEM REQUEST NOTIFICATION 



EXIT 



TEST_SHIFT 

TURN OFF THE BREAK BIT 

ESTABLISH ADDRESS OF SHIFT TABLE 

SHIFT KEY TABLE 

LENGTH 

LOOK THROUGH THE TABLE FOR A MATCH 

RECOVER SCAN CODE 

JUMP IF MATCH FOUND 

IF NO MATCH, THEN SHIFT NOT FOUND 



ADJUST PTR TO SCAN CODE MTCH 
; GET MASK INTO AH 



ROM BIOS 2-69 



0107 A8 80 
0109 75 54 



010B 80 FC 10 
010E 73 OA 



TEST 
JNZ 



AL,80H 
K23 



TEST FOR BREAK KEY 
BREAK_SHIFT_FOUND 



SHIFT MAKE FOUND, DETERMINE SET OR TOGGLE - 

IF SCRL SFT OR ABOVE, TOGGLE KEY 



CMP 
JAE 



AH,SCROLL_SHIFT 
K18 



PLAIN SHIFT KEY, SET SHIFT ON 



0110 08 26 0017 R 
0114 E9 0396 R 



0117 
011A 
011A 
011F 
0121 
0123 

0125 
012A 
012C 
0131 
0133 
0138 



OR 
JMP 



KB_FLAG,AH 
KYBD9_EXIT 



TURN ON SHIFT BIT 
INTERRUPT.RETURN 



TOGGLED SHIFT KEY, TEST FOR 1ST MAKE OR NOT 



E9 01C5 R 

F6 06 0017 R 04 
75 F6 
3C 52 
75 22 



K25_JMP: 

K18: 
TEST 
JNZ 
CMP 
JNE 



JMP 



K25 



KB_FLAG, CTL_SHIFT 

K25_JMP 

AL,INS_KEY 

K22 



F6 06 0017 

75 EB 

F6 06 0017 

75 OD 

F6 06 0017 

74 OD 



R 08 



R 20 K19: 



R 03 



TEST 
JNZ 
9: 
JNZ 
TEST 
JZ 



KB_FLAG, 
K25_JMP 



ALT_SHIFT 



JUMP TO K25 FOR JNZ's BELOW 
SHIFT-TOGGLE 
CHECK CTL SHIFT STATE 
JUMP IF CTL STATE 
CHECK FOR INSERT KEY 
JUMP IF NOT INSERT KEY 
[[[[ INSERT KEY HIT ]]]] 
CHECK FOR ALTERNATE SHIFT 
JUMP IF ALTERNATE SHIFT 



TEST KB_FLAG, NUM_STATE ; CHECK FOR BASE STATE 
K21 ; JUMP IF NUM LOCK IS ON 

KB_FLAG, LEFT_SHIFT+ RIGHT_SHIFT 
K22 ; JUMP IF BASE STATE 



013A 

013A B8 5230 

013D E9 0334 R 

0140 

0140 F6 06 0017 R 

0145 74 F3 



03 



K20: 

MOV 

JMP 
K21: 

TEST 

JZ 



AX, 5230H 
K57 



KB_FLAG, 
K20 



NUMERIC ZERO, NOT INSERT KEY 
PUT OUT AN ASCII ZERO 
BUFFER_FILL 
MIGHT BE NUMERIC 
LEFT_SHIFT+ RIGHT_SHIFT 

; JUMP NUMERIC, NOT INSERT 



0147 
0147 
014B 
014D 
0151 
0155 
0157 
0159 
015C 



015F 
015F 
0162 
0164 
0166 
016A 
016C 



016E 
0171 
0173 
0177 
0179 
017B 



K22: 



84 26 0018 
75 37 

08 26 0018 
30 26 0017 
3C 52 
75 2B 
B8 5200 
E9 0334 R 



TEST 

JNZ 

OR 

XOR 

CMP 

JNE 

MOV 

JMP 



AH,KB_FLAG_1 

KYBD9_EXIT1 

KB_FLAG_1,AH 

KB_FLAG,AH 

AL,INS_KEY 

KYBD9_EXIT1 

AX,INS_KEY*256 

K57 



SHFT TOGGLE KEY HIT; PROCESS 
IS KEY ALREADY DEPRESSED 
JUMP IF KEY ALREADY DEPRESSED 
IND THAT THE KEY IS DEPRESSED 
TOGGLE THE SHIFT STATE 
TEST 1ST MAKE OF INSERT KEY 
JUMP IF NOT INSERT KEY 
SET CODE INTO AH, INTO AL 
PUT INTO OUTPUT BUFFER 



SHIFT BREAK FOUND 



80 FC 10 

73 1A 

F6 D4 

20 26 0017 R 

3C B8 

75 16 



K23: 
CMP 
JAE 
NOT 
AND 
CMP 
JNE 



AH,SCROLL_SHIFT 

K24 

AH 

KB_FLAG,AH 

AL,ALT_KEY+80H 

KYBD9_EXIT1 



BREAK-SHIFT-FOUND 

IS THIS A TOGGLE KEY 

YES, HANDLE BREAK TOGGLE 

INVERT MASK 

TURN OFF SHIFT BIT 

IS THIS ALT SHIFT RELEASE 

GO TO EOI EXIT 



ALT_SHIFT RELEASED, PROCESS ALT + KEYPAD (0-9) IF PENDING 



AO 0019 R 

B4 00 

88 26 0019 

3C 00 

74 09 

E9 033D R 



MOV 

MOV 

MOV 

CMP 

JE 

JMP 



AL,ALT_INPUT 

AH,0 

ALT_INPUT,AH 

AL,0 

KYBD9_EXIT1 

K58 



BUILD PSEUDO SC 

CLEAR ALT_INPUT 

WAS ALT_INPUT HOLDING? 

NO, EOI EXIT 

YES, T, SO PUT IN BUFFER 



SHIFT BREAK IS A STATE KEY - TOGGLE FLAG 



017E 

017E F6 D4 

0180 20 26 0018 R 



K24: 



NOT 
AND 



B_FLAG_1,AH 



BREAK-TOGGLE 

INVERT MASK 

INDICATE STATE EXITED 



LINK TO KEYBOARD EXIT FOR SHORT JUMPS 



2-70 ROM BIOS 



0184 












KYBD9_EXIT1: 




0184 


E9 


0396 R 






JMP 


KYBD9_EXIT 


INTERRUPT_RETURN 














TEST FOR Fll 


OR F12 MAKE 




0187 












K24_0: 






0187 


B4 


85 








MOV 


AH,F11_BASE_ASCII 


AH HAS BASE Fll EXT ASCII 


0189 


3C 


57 








CMP 


AL,F11_MAKE_SC 


Fll MAKE? 


018B 


74 


06 








JE 


K24_l 


YES, JUMP 


018D 


FE 


C4 








INC 


AH 


AH HAS BASE F12 EXT ASCII 


018F 


3C 


58 








CMP 


AL,F12_MAKE_SC 


F12 MAKE? 


0191 


75 


32 








JNE 


K25 


NO, JUMP 




Fll / 


F12 FOUND 


CHECK FOR ALT+ 


CTL+, SHIFT+ F11/F12 - 


0193 






K24_l: 






0193 


F6 


06 


0018 


R 


08 


TEST 


KB_FLAG_1,H0LD_STATE 


; HOLD STATE? 


0198 


74 


08 








JZ 


K24_5 


NO, AROUND 


019A 


80 


26 


0018 


R 


F7 


AND 


KB_FLAG_1,N0T HOLD_STATE ; YES, ENTERED KEY ONLY 


019F 


E9 


0396 R 






JMP 


KYBD9_EXIT 


RESETS HOLD STATE 


01A2 












K24_5: 






01A2 


F6 


06 


0017 


R 


OF 


TEST 


KB_FLAG,ALT_SHIFT+CTL_SHIFT+LEFT_SHIFT+RIGHT_SHIFT 


















ANY SHIFT STATES? 


01A7 


74 


17 








JZ 


K24_7 


NO, AROUND WITH BASE F11/F12 


01A9 


80 


C4 


06 






ADD 


AH, 6 


AH HAS ALT+F11/F12 EXT ASCII 


01AC 


F6 


06 


0017 


R 


08 


TEST 


KB_FLAG,ALT_SHIFT 


ALT SHIFT CASE? 


01B1 


75 


OD 








JNZ 


K24_7 


YES, JUMP 


01B3 


80 


EC 


02 






SUB 


AH, 2 


AH HAS CTL+F11/F12 EXT ASCII 


01B6 


F6 


06 


0017 


R 


04 


TEST 


KB_FLAG,CTL_SHIFT 


CTL SHIFT CASE? 


01BB 


75 


03 








JNZ 


K24 7 


YES, JUMP 


01BD 


80 


EC 


02 






SUB 


AH, 2 


AH HAS SHIFT+F11/F12 EXT ASCII 


01C0 












K24_7 : 






01C0 


2A 


CO 








SUB 


AL,AL 


CLEAR AL TO MAKE AX EXTNDED SC 


01C2 


E9 


0364 R 






JMP 


K61 


GO BUFFER F11/F12 EXT ASCII 




TEST 


FOR HOLD STATE 




01C5 






K25: 




NO-SHIFT-FOUND 


01C5 


8A 


EO 








MOV 


AH,AL 


RESTORE AH AFTER F11/F12 TEST 


01C7 


3C 


80 








CMP 


AL,80H 


BREAK SC? 


01C9 


73 


B9 








JAE 


KYBD9_EXIT1 


YES, EOI EXIT 

< NO BREAK CODES PAST HERE » 


01CB 


F6 


06 


0018 


R 


08 


TEST 


KB_FLAG_1,H0LD_STATE 


; ARE WE IN HOLD STATE 


01D0 


74 


OC 








JZ 


K28 


, BRANCH AROUND TEST IF NOT 


01D2 


3C 


45 








CMP 


AL,NUM_KEY 




01D4 


74 


AE 








JE 


KYBD9_EXIT1 


, CAN'T END HOLD ON NUM_LOCK 


01D6 


80 


26 


0018 


R 


F7 


AND 


KB_FLAG_1,N0T HOLD_STATE ; TURN OFF HOLD STATE BIT 


01DB 


E9 


0396 R 






JMP 


KYBD9_EXIT 
















NOT TN HOI n qtatf tfct fhd cdfptai puapq 


01DE 












K28: 




, NO-HOLD-STATE 


01DE 


F6 


06 


0017 


R 


08 


TEST 


KB_FLAG,ALT_SHIFT 


, ARE WE IN ALTERNATE SHIFT 


01E3 


75 


03 








JNZ 


K29 


, JUMP IF ALTERNATE SHIFT 


01E5 


EB 


6D 


90 






JMP 


K38 


, JUMP IF NOT ALTERNATE 




TEST 


FOR RESET KEY SEQUENCE (CTL+ALT- 


HDEL) 


01E8 






K29: 




, TEST-RESET 


01E8 


F6 


06 


0017 


R 


04 


TEST 


KB_FLAG,CTL_SHIFT 


, ARE WE IN CONTROL SHIFT ALSO 


01ED 


74 


OD 








JZ 


K31 


, NO_RESET 


01EF 


3C 


53 








CMP 


AL,DEL_KEY 


, SHIFT STATE THERE, TEST KEY 


01F1 


75 


09 








JNE 


K31 


, NO_RESET 










CTL-ALT-DEL ENTERED, DO I/O CLEANUP F 


3R SOFT START 


01F3 


C7 


06 


0072 


R 


1234 MOV 


RESET_FLAG, 1234H 


, SET FLAG FOR RESET FUNCTION 


01F9 


E9 


0000 E 






JMP 


START 


, JUMP TO POWER ON DIAGNOSTICS 



; IN ALT_SHIFT STATE AT LEAST - 



ROM BIOS 2-71 



01FC 






' 


K31: 




NO-RESET 


OlFC 


3C 


39 




CMP 


AL,57 


TEST FOR SPACE KEY 


OlFE 


75 


05 




JNE 


K32 


NOT THERE 


0200 


BO 


20 




MOV 


AL,' ' 


SET SPACE CHAR 


0202 


E9 


0334 


R 


JMP 


K57 


BUFFER_FILL 










LOOK FOR KEY PAD ENTRY 


-- ALT + (KEYPAD 0-9) MAKE -- 


0205 








K32: 




ALT-KEY-PAD 


0205 


BF 


0000 


E 


MOV 


DI, OFFSET K30 


ALT-INPUT-TABLE 


0208 


B9 


OOOA 




MOV 


cx,io 


LOOK FOR ENTRY USING KEYPAD 


020B 


F2/ AE 




REPNE 


SCASB 


LOOK FOR MATCH 


020D 


75 


13 




JNE 


K33 


NO_ALT_KEYPAD 


020F 


81 


EF 0001 


E SUB 


DI, OFFSET K30+1 


DI NOW HAS ENTRY VALUE 


0213 


AO 


0019 


R 


MOV 


AL,ALT_INPUT 


GET THE CURRENT BYTE 


0216 


B4 


OA 




MOV 


AH, 10 


MULTIPLY BY 10 


0218 


F6 


E4 




MUL 


AH 




021A 


03 


C7 




ADD 


AX,DI 


ADD IN THE LATEST ENTRY 


021C 


A2 


0019 


R 


MOV 


ALT_INPUT,AL 


STORE IT AWAY 


021F 


E9 


0396 


R 


JMP 


KYBD9_EXIT 


THROW AWAY THAT KEYSTROKE 










LOOK FOR SUPERSHIFT ENTRY 


- ALT + A-Z TYPEWRITER MAKE - 


0222 








K33: 




NO-ALT-KEYPAD 


0222 


C6 


06 0019 


R 00 MOV 


ALT_INPUT,0 


ZERO PREVIOUS ENTRY IN INPUT 


0227 


B9 


001A 




MOV 


CX,26 


DI,ES ALREADY POINTING 


022A 


F2/ AE 




REPNE 


SCASB 


LOOK FOR MATCH IN ALPHABET 


022C 


75 


05 




JNE 


K34 


NOT FOUND, FN KEY OR OTHER 


022E 


BO 


00 




MOV 


AL,0 


ASCII CODE OF ZERO 


0230 


E9 


0334 


R 


JMP 
CHECK FOR 


K57 
TOP ROW KEYS 


PUT IT IN THE BUFFER 
— ALT + PCI (1-9,-,=) MAKE - 


0233 








K34: 






0233 


3C 


02 




CMP 


AL,2 


KEY IN TOP ROW? 


0235 


72 


OC 




JB 


K35 


NO, JMP 


0237 


3C 


OE 




CMP 


AL,14 




0239 


73 


08 




JAE 


K35 


NO, JMP 


023B 


80 


C4 76 


ADD 


AH, 118 


BUILD PSEUDO SC 


023E 


BO 


00 




MOV 


AL,0 




0240 


E9 


0334 


R 


JMP 
CHECK FOR 


K57 
Fl - FIO 


BUFFER_FILL 
— - ALT + (Fl - FIO) MAKE - — 


0243 








K35: 






0243 


3C 


3B 




CMP 


AL,F1_KEY 


SC POTENTIAL FUNCTION KEY? 


0245 


73 


03 




JAE 


K37 


YES, JMP 


0247 








K36: 




NO. THIS KEY NOT SUPPORTED 


0247 


E9 


0396 


R 


JMP 


KYBD9_EXIT 


IN ALT_SHIFT. EOI RETURN. 


024A 








K37: 






024A 


3C 


47 




CMP 


AL,71 


SC IN F1-F10 REGION? 


024C 


73 


F9 




JAE 


K36 


NO, JMP TO EXIT 


024E 


BB 


0000 


E 


MOV 


BX, OFFSET K13 


ALT+(F1-F10) EXT ASCII TABLE 


0251 


E9 


037C 


R 


JMP 


K63 


GO XLATE & BUILD PSEUDO SC 
<«« >»» 
<««NOT IN ALT_SHIFT »>» 


0254 








K38: 






0254 


F6 


06 0017 


R 04 TEST 


KB_FLAG,CTL_SHIFT 


IN CTL_SHIFT? 


0259 


74 
3C 


65 
46 




JZ 


K44 


NO, JMP 




IN CTL_SHIFT 


STATE W/0 ALT_SHIFT 


- 


025B 


CMP 


AL,SCROLL_KEY 


TEST FOR BREAK 


025D 


75 


18 




JNE 
CTL+BREAK 


K39 
ENTERED - CLEAN UP & 


, NO-BREAK 
DO INT 1BH - CTL + BREAK MAKE 


025F 


8B 


IE 0080 


R MOV 


BX,BUFFER_START 


, RESET BUFFER TO EMPTY 


0263 


89 


IE 001A 


R MOV 


BUFFER_HEAD,BX 




0267 


89 


IE 001C 


R MOV 


BUFFER_TAIL,BX 




026B 


C6 


06 0071 


R 80 MOV 


BI0S_BREAK,80H 


, TURN ON BIOS_BREAK BIT 


0270 


CD 


IB 




INT 


1BH 


, BREAK INTERRUPT VECTOR 


0272 


2B 


CO 




SUB 


AX, AX 


, PUT OUT DUMMY CHARACTER 
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0274 E9 0334 R 

0277 

0277 3C 45 

0279 75 2E 



JMP 



0292 
0292 
0295 
0298 
0299 
029A 
029D 
029F 
02A4. 
02A6 
02A9 



02A9 
02AB 
02AD 
02B0 



02B3 
02B3 
02B6 
02 B8 



02 BA 
02 BA 
02BD 



K39: 



CMP 
JNE 



K57 



AL,NUM_KEY 
K41 



BUFFER_FILL 

NO-BREAK 

LOOK FOR PAUSE KEY 

NO-PAUSE 



PAUSE ENTERED 



EOI & SLEEP UNTIL UNPAUSE - CTL + NUM_LOCK MAKE 



027B 80 OE 0018 R 08 
0280 BO 20 
0282 E6 20 



OR KB_FLAG_1,H0LD_STATE ; TURN ON THE HOLD FLAG 

MOV AL,EOI ; EOI TO ALLOW MORE KEYSTROKES 

OUT 020H,AL 

DURING PAUSE INTERVAL, TURN CRT BACK ON 



0284 80 3E 0049 R 07 

0289 74 07 

028B BA 03D8 

028E AO 0065 R 

0291 EE 



CMP 

JE 

MOV 

MOV 

OUT 



CRT_M0DE,7 

K40 

DX.03D8H 

AL,CRT_MODE_SET 

DX,AL 



CURRENTLY USING MONO? 
YES, JMP TO SLEEP 
PORT FOR COLOR CARD 
GET CURRENT MODE VAULE 
SET THE CRT MODE ON 



ISSUE SYS SERVICES INT, WAIT ON EXTERNAL EVENT FUNCTION 

(WAIT UNTIL HOLD.STATE BIT OF KB_FLAG_1 IS RESET) 
K40: 
B8 4104 MOV AX.4104H 

BB 0800 MOV BX,H0LD_STATE*100H 

IE PUSH DS 

07 POP ES 

BF 0018 R MOV DI, OFFSET KB_FLAG_1 

CD 15 INT 15H 

F6 06 0018 R 08 TEST KB_FLAG_1,H0LD_STATE 
75 EC JNZ K40 

E9 039B R JMP KYBD9_RET 



FUNCTION 41H, AL=04=RETURN IF 
BH=HOLD_STATE, BL=0=NO TIME OUT 
MAKE ES:DI POINT TO KB_FLAG_1 



SLEEP UNTIL OUT OF HOLD 

DID INT 15H RESET HOLD_STATE? 
NO, KEEP LOOPING 
YES, GO TO NON_EOI EXIT 



K41: 



TEST FOR PRINT SWITCH TOGGLE CMD 



3C 37 
75 06 
B8 7200 
E9 0334 R 



BB 0000 E 
3C 3B 
72 76 



BB 0000 E 
E9 037C R 



CMP 
JNE 
MOV 
JMP 



AL,P60_ASTRK_SC 

K42 

AX, 114*256 

K57 



CHECK FOR TYPEWRITER KEYS 
K42: 



MOV 
CMP 
JB 



BX, OFFSET K8 

AL,F1_KEY 

K56 



[[[ CTL + */PRTSC MAKE ]]] 

* KEY HIT? 

NO, JMP 

YES, BUILD TOGGLE_PRT_SW PSEUDO SC 

BUFFER_FILL 

[[[ CTL + TYPEWRITER KEY MAKE ]]] 



BX <=== CTL + TYPEWRITER KEYS TABLE 
SC BELOW TYPEWRITER REGION? 
YES, GO TRANSLATE TO ASCII CODE 



KEY IS IN FN OR KEYPAD REGION [[[ CTL + (F1-F10) ]]] 
[[[ CTL + PAGE/CURSOR KEY]]] 



MOV 
JMP 



BX, OFFSET K9 
K63 



CTL FN & CTL PAGE/CUR TBLS 
GO XLATE & BUILD PSEUDO SC 
<«« >»» 

<«« NOT IN CTL_SHIFT >»» 
<«« NOR ALT_SHIFT >»» 









CHECK IF KEY IN KEYPAD REGION (1- 


■9,.,-,+) 


02C0 






K44: 




02C0 


3C 


47 


CMP 


AL,71 ; KEY IN KEYPAD REGION? 


02C2 


73 


2C 


JAE 


K48 ; YES, JMP 


02C4 


F6 


06 oor 


7 R 03 TEST 


KB_FLAG,LEFT_SHIFT+RIGHT_SHIFT ; IN SHIFT STA 


02C9 


74 


5A 


JZ 


K54 ; NO, JMP 




IN SHIFT STATE ,BUT KEY IS NOT IN KEYPAD REGION 




CHECK FOR 


BACK TAB [[[[ SHIFT + TAB ]]] 


02CB 


3C 


OF 


CMP 


AL,TAB_KEY ; TAB KEY? 


02 CD 


75 


05 


JNE 


K45 


NO ,JMP 


02CF 


B8 


OFOO 


MOV 


AX,TAB_KEY*256 


BUILD BACK_TAB PSEUDO SC 


02D2 


EB 


60 


JMP 


SHORT K57 


BUFFER_FILL 
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CHECK FOR 


PRINT SCREEN - EOI 


THEN INT 5H - SHIFT + */PRTSC 


02D4 








K45: 






02D4 


3C 


37 




CMP 


AL,P60_ASTRK_SC 


; PRINT SCREEN KEY? 


02D6 


75 


09 




JNE 


K46 


; NO, JMP 


02D8 


BO 


20 




MOV 


AL,EOI 


; EOI TO ALLOW MORE INTERRUPTS 


02DA 


E6 


20 




OUT 


INTAOO,AL 




02DC 


CD 


05 




INT 


5H 


; ISSUE PRINT SCREEN INTERRUPT 


02DE 


E9 


039B 


R 


JMP 
CHECK FOR 


KYBD9_RET 
FUNCTION KEY 


; GO TO NON_EOI EXIT 
[[[ SHIFT + (F1-F10) ]]] 


02E1 








K46: 






02E1 


3C 


3B 




CMP 


AL,F1_KEY 


; Fl - F10 KEY? 


02E3 


72 


06 




JB 


K47 


; NO, JMP 


02E5 


BB 


0000 


E 


MOV 


BX, OFFSET K12 


; BX SHIFT F1-F10 EXT ASCII TBL 


02E8 


E9 


037C 


R 


JMP 
KEY IS IN 


K63 
TYPEWRITER REGION 


; GO XLATE & BUILD PSEUDO SC 
[[[ SHIFT + TYPEWRITER KEY ]]] 


02EB 








K47: 






02EB 


BB 


0000 


E 


MOV 


BX, OFFSET Kll 


; BX=UPPERCASE ASCII CODE TBL 


02EE 


EB 


40 




JMP 


SHORT K56 


; GO TRANSLATE TO ASCII CODE 




KEYPAD KEY: NOT IN ALT OR CTL SHIFT 


:DETERMINE IF KEYPAD OR PG/CUR 


02F0 


K48: 






02F0 


F6 


06 0017 


R 20 TEST 


KB_FLAG,NUM_STATE 


; IN NUM_STATE? 


02F5 


75 


20 




JNZ 


K52 


; YES, JMP 


02F7 


F6 


06 0017 


R 03 TEST 


KB_FLAG,LEFT_SHIFT+RIGHT_SHIFT ; NUM_STATE? 


02FC 


75 


20 




JNZ 
BASE CASE 


K53 
KEYPAD (PAGE/CURSOR) 


; YES, GO PROCESS 
KEY -PAGE/CURSOR, DEL, -, + — 


02FE 








K49: 






02FE 


3C 


4A 




CMP 


AL,KYPD_MINUS 


; KEYPAD MINUS KEY? 


0300 


74 


OB 




JE 


K50 


; YES, JMP 


0302 


3C 


4E 




CMP 


AL,KYPD_PLUS 


; KEYPAD PLUS KEY? 


0304 


74 


OC 




JE 


K51 


; YES, JMP 


0306 


2C 


47 




SUB 


AL,71 


; ADUST SC FOR TABLE OFFSET 


0308 


BB 


0000 


E 


MOV 


BX, OFFSET K15 


; BX=KEYPAD AREA BASE CASE TBL 


030B 


EB 


71 




JMP 


SHORT K64 


; GO TRANSLATE & BUILD PSEUDO SC 


030D 








K50: 






030D 


B8 


4A2D 




MOV 


AX, 74*256+' -' 


; BLD EXT ASCII CODE FOR MINUS 


0310 


EB 


22 




JMP 


SHORT K57 


; BUFFER_FILL 


0312 








K51: 






0312 


B8 


4E2B 




MOV 


AX,78*256+'+' 


; BLD EXT ASCII CODE FOR PLUS 


0315 


EB 


ID 




JMP 


SHORT K57 


; BUFFER_FILL 










IN NUM_STATE - CHECK IF TEMPORARILY SHIFTED OUT 


0317 








K52: 






0317 


F6 


06 0017 


R 03 TEST 


KB_FLAG,LEFT_SHIF1 


+RIGHT_SHIFT ; NOT NUM STATE? 


031C 


75 


EO 




JNZ 


K49 


; YES, JMP TO BASE 
; KEYPAD XLAT 


031E 








K53: 




; [[[ KEYPAD 0-9, ., -, + ]]] 


031E 


2C 


46 




SUB 


AL,70 


; ADJUST SC FOR TABLE OFFSET 


0320 


BB 


0000 


E 


MOV 


BX, OFFSET K14 


; BX=KEYPAD KEYS' ASCII CODES 


0323 


EB 


OB 




JMP 


SHORT K56 


; GO XLATE & BUILD ASCII CODE 



NOT IN ANY SHIFT STATE 
KEYPAD REGION HAS BEEN PROCESSED (SC 69 & UP) - 



0325 

0325 3C 3B 

0327 72 04 

0329 BO 00 

032B EB 37 



CHECK FOR F1-F10 

K54: 

CMP AL,F1_KEY 

JB K55 

MOV AL,0 

JMP SHORT K61 



[[[ BASE Fl - F10 ]]] 



FUNCTION KEY? 

NO, JMP 

SCAN CODE IN AH ALREADY 

BUFFER_FILL 



KEY MUST BE FROM TYPEWRITER REGION — BASE TYPEWRITER KEY 
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032D 






K55: 










032D 


BB 0000 E 




MOV 


BX, OFFSET K10 




; BX=BASE CASE ASCII TBL 




T 


R A N S L A T 


E SC TO EXTENDTED 


ASCII CODE & BUFFER 


0330 




K56: 








0330 


FE C8 




DEC 


AL 




; ADJUST SC FOR TABLE OFFSET 


0332 


2E: D7 




XLAT 


cs:Kll 


TRANSLATE FROM TABLE IN BX 








-- PUT rHARAfTtrD TWTn ruffed 






0334 






ru i unni\nt 

K57: 








0334 


3C FF 




CMP 


AL,-1 






IGNORE CODE XLATED FROM TABLE 


0336 


74 IF 




JE 


K59 






YES, GO TO EOI EXIT 


0338 


80 FC FF 




CMP 


AH.-l 






IGNORE PSEUDO SCAN? 


033B 


74 1A 




JE 


K59 






YES, GO TO EOI EXIT 








-- PHFPk FOR 


CAPS_STATE 






033D 






~~ uncuiN rvji\ 

K58: 






033D 


F6 06 0017 


R 


40 TEST 


KB_FLAG,CAPS_STATE 


; ARE WE IN CAPS LOCK STATE 


0342 


74 20 




JZ 


K61 




; SKIP IF NOT 
««« »»» 








-- nFTFRMTNF 


Ia/htph way to rnw\/FP"r 


««« IN CAPS_STATE »»» 
+RIGHT_SHIFT ; IN SHIFT STATE? 


0344 


F6 06 0017 


R 


- ~ UHI L.i\rl IIil 

03 TEST 


wniun ami i u uuix v c. 
KB_FLAG,LEFT_SH 


I FT 


0349 


74 OF 




JZ 


K60 




; NO, JMP 








PONVFRT IIPDFD rncr to i hucd 




ALPHABETIC CHARS ONLY 
; ALPHABETIC CHAR? 


034B 


3C 41 




CMP 


AL,'A' 




034D 


72 15 




JB 


K61 




; NO, JMP 


034F 


3C 5A 




CMP 


AL.'Z' 






0351 


77 11 




JA 


K61 






NO, JMP 


0353 


04 20 




ADD 


AL.'a'-'A' 






YES, CONVERT TO LOWER CASE. 


0355 


EB OD 




JMP 


SHORT K61 






GO BUFFER 


0357 






K59: 








0357 


EB 3D 90 




JMP 


KYBD9_EXIT 




; INTERRUPT_RETURN 








-- TONVFRT 1 fli'icD rncF m iiddcd 




ALPHABETIC CHARS ONLY 


035A 






K60: 






035A 


3C 61 




CMP 


AL , ' a ' 




; ALPHABETIC CHAR? 


035C 


72 06 




JB 


K61 




; NO, JMP 


035E 


3C 7A 




CMP 


AL,'z' 






0360 


77 02 




JA 


K61 




; NO, JMP 


0362 


2C 20 




SUB 


AL.'a'-'A' 




; YES, CONVERT TO UPPER CASE 




BUFFER EXTENDED 


ASCII CODE IF NOT 


FULL 


0364 




K61: 








0364 


8B IE 001C 


R 


MOV 


BX,BUFFER_TAIL 






GET BUFFER TAIL POINTER 


0368 


8B F3 




MOV 


SI,BX 






SI <=== TAIL PTR 


036A 


E8 03A4 R 




CALL 


PTR_INC 






ADVANCE THE TAIL 


036D 


3B IE 001A 


R 


CMP 


BX,BUFFER_HEAD 






HAS BUFFER WRAPPED AROUND? 


0371 


74 13 




JE 


K62 






YES, GO GIVE BUFFER_FULL_BEEP 


0373 


89 04 




MOV 


[51], AX 






NO, BUFFER THE CODE 


0375 


89 IE 001C 


R 


MOV 


BUFFER_TAIL,BX 






UPDATE TAIL PTR 


0379 


EB IB 90 




JMP 


KYBD9_EXIT 






GO TO EOI EXIT 




TRANSLATE F1-F10 SCAN CODES TO AN 


EXTENDED ASCII CODE - 








(FOR SHIFT, 


ALT, & CTL STATES) 


037C 




K63: 








037C 


2C 3B 




SUB 


AL,F1_KEY 




; ADJUST SC FOR TABLE OFFSET 


037E 






K64: 








037E 


2E: D7 




XLAT 


cs:K9 ; 


XLAT FROM TABLE IN BX 














; (K9,K12,K13) 


0380 


8A EO 




MOV 


AH.AL 




; BUILD EXTENDED ASCII CODE 


0382 


BO 00 




MOV 


AL,0 






0384 


EB AE 




JMP 


K57 






GO BUFFER 
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BUFFER IS FULL, SOUND THE BEEPER 



0386 
0386 
0388 
038A 
038D 
0390 
0393 



K62: 



BO 20 
E6 20 
BB 0053 
B9 0081 
E8 0000 E 
EB 06 90 



MOV 

OUT 

MOV 

MOV 

CALL 

JMP 



AL,EOI 

INTAOO,AL 

BX,083 

CX,081H 

KB_N0ISE 

KYBD9_RET 



0396 

0396 FA 

0397 BO 20 
0399 E6 20 



07 



039B 
039B 

039C IF 

039D 5F 

039E 5E 

039F 5A 

03A0 59 

03A1 5B 

03A2 58 

03A3 CF 
03A4 



ISSUE EOI & RETURN 



KYBD9_EXIT: 
CLI 

MOV AL.EOI 
OUT INTAOO.AL 

RETURN WITH EOI ALREADY ISSUED 



END OF INTERRUPT COMMAND 
SEND CMD TO INT CONTROL PORT 
NO. CYCLES FOR 83 MSEC TONE 
1/2 CYCLE FOR 1KHZ TONE 

RETURN WITHOUT EOI 



TURN OFF INTERRUPTS 
ISSUE EOI 



KYBD9_RET: 

POP 

POP 

POP 

POP 

POP 

POP 

POP 

POP 

IRET 
KYBD_INT9 ENDP 



ES 
DS 
DI 
SI 
DX 
CX 
BX 
AX 



RESTORE REGS 



RETURN: IRPTS SET BACK AS WERE 



^********************************^ 



ROUTINE-NAME : PTR_INC 



FUNCTION: 

ENTRY CONDITIONS: 



INCREMENT THE KEYBOARD BUFFER POINTER AND WRAP THE BUFFER 
IF NECESSARY. 



DS= DATA SEGMENT 

BX= POINTER TO INCREMENT 



EXIT CONDITIONS: 

BX INCREMENTED BY 2 AND IF BUFFER.END EXCEECE 
BX IS SET TO BUFFER_START. 

REGISTERS MODIFIED: BX 



03A4 










PTR_INC 


PROC NEAR 




03A4 


43 








INC 


BX 


; MOVE TO NEXT WORD IN LIST 


03A5 


43 








INC 


BX 




03A6 


3B 


IE 


0082 


R 


CMP 


BX,BUFFER_END 


; AT END OF BUFFER? 


03AA 


75 


04 






JNE 


PTR_01 


; NO, CONTINUE 


03AC 


8B 


IE 


0080 


R 


MOV 


BX, BUFFER-START 


; YES, RESET TO BUFFER BEGINNING 


O3B0 










PTRJJl: 






03. BO 
03B1 


C3 








RET 
PTR_INC 


ENDP 




03B1 










ROMCODE 
END 


ENDS 
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Video I/O and Print Screen 
(B12VIDEO) 



0000 



R0MC0DE SEGMENT BYTE PUBLIC 
ASSUME CS:R0MC0DE 
IDENT B12VIDE0, 12,00 

******************************************************************** 

MODULE-NAME : B12VIDE0 

DATE LAST MODIFIED: 09/12/85 

DESCRIPTIVE-NAME : VIDE0_I0 AND PRINT SCREEN BIOS 

COPYRIGHT : 7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 

CHANGE LEVEL: 0.0 

FUNCTION: VIDEO_IO - HANDLES ALL BIOS VIDEO REQUESTS 

PRINT_SCREEN - HANDLES THE PRINT SCREEN FUNCTION 

MODULE SIZE: 2829 BYTES 

ENTRY CONDITIONS: 

REFER TO ROUTINE PROLOGUES 

EXIT CONDITIONS: 

REFER TO ROUTINE PROLOGUES 



ROUTINES IN MODULE: 
VIDEO_IO 
PRINT_SCREEN 



INT 10H DISPLAY INTERFACE ROUTINES 
INT 5H PRINT SCREEN INTERRUPT HANDLER 



INTERNAL DATA AREAS / TABLES: Ml_l, REGS_PUSHD, VI 

EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 

EXTERNALLY REFERENCED DATA AREAS: DATA SEG, XXDATA SEG, VIDEO RAM 

CHANGE ACTIVITY: NONE 

************************************************** 

***************************************************************** 
* EXTERNAL REFERENCES 



******************************************* 



EXTRN DDS:NEAR 

EXTRN BEEP: NEAR 

EXTRN KB_NOISE:NEAR 

EXTRN GET_RTC_REG:NEAR 

EXTRN PUT_RTC_REG:NEAR 

EXTRN LCDINIT:NEAR 



********************* 



TABLES 



EXTRN CHAR_GEN_LO:BYTE 

EXTRN CHAR_GEN_HI:BYTE 

EXTRN M4:ABS 

EXTRN M5.-W0RD 

EXTRN M6:BYTE 

EXTRN M7:BYTE 
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EXTRN 
EXTRN 
EXTRN 
EXTRN 



MONO_TBL:WORD 
CGA_TBL:WORD 
LCD_MONO_TBL:WORD 
LCD_CGA_TBL:WORD 



***************************************************************** 

* PUBLICS DECLARATION 
***************************************************************** 



PUBLIC 


VIDEO_IO_l 


PUBLIC 


PRT_SCRN 


PUBLIC 


SET_MODE 


PUBLIC 


SET_CTYPE 


PUBLIC 


SET_CPOS 


PUBLIC 


READ_CURSOR 


PUBLIC 


READ_LPEN 


PUBLIC 


ACT_DISP_PAGE 


PUBLIC 


SCROLL_UP 


PUBLIC 


SCROLL_DOWN 


PUBLIC 


READ_AC_CURRENT 


PUBLIC 


WRITE_AC_CURRENT 


PUBLIC 


WRITE_C_CURRENT 


PUBLIC 


SET_COLGR 


PUBLIC 


WRITE_DOT 


PUBLIC 


READ_DOT 


PUBLIC 


WRITE_TTY 


SUBTTL 


VIDEO BIOS - I 


********************************** 



INT 10H 



ROUTINE-NAME : VIDEO_IO 

FUNCTION: THIS ROUTINE HANDLES THE VIDEO BIOS REQUESTS - INT 10H 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: SEE INT 10H DESCRIPTION 
INPUT CONDITIONS: SEE INT 10H DESCRIPTION 
RESTRICTIONS: NONE 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: SEE INT 10 DESCRIPTION 
ERROR EXIT CONDITIONS: NO ERROR REPORTING INTERFACE IS DEFINED 
REGISTERS MODIFIED: ALL REGISTERS EXCEPT AX ARE SAVED UNLESS 
THEY ARE USED TO RETURN INFO AS DEFINE 
IN THE INT 10H DESCRIPTION 
RETURN TYPE: IRET (ALL FLAGS RESTORED) 
INTERRUPTS: ENABLED DURING PROCESSING 



INTERNALLY REFERENCED ROUTINES: 
ACT_DISP_PAGE, 
LCD_REQUEST, 
PHYS_DSP_DESCR_REQ, 
PRT_SCREEN, 
READ_AC_CURRENT, 
READ_CURSOR, 
READ_DOT, 
READJ.PEN, 
SCROLL_UP, 
SCROLL_DOWN, 

EXTERNALLY REFERENCED ROUTINES: 
DDS, 
BEEP, 
KB_NOISE, 
GET_RTC_REG, 
PUT_RTC_REG, 
LCDINIT 



********************************************************************* 



SET_COLOR, 

SET_CPOS, 

SET_CTYPE, 

SET_MODE, 

VIDEO.STATE, 

WRITE_AC_CURRENT, 

WRITE_C_CURRENT, 

WRITE_DOT, 

WRITE_STRING, 

WRITE_TTY 
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--- INT 10H - - 

VIDEO_IO 

THESE ROUTINES PROVIDE THE CRT INTERFACE 
THE FOLLOWING FUNCTIONS ARE PROVIDED: 

(AH)=OOH SET MODE (AL) CONTAINS MODE VALUE 

TYPE RES/DIM DISPLAY MAX PAGES NOTES 



(AL)=0 


ALPHA 


40X25 


COLOR - BW** 


8 




(AL)=1 


ALPHA 


40X25 


COLOR 


8 




(AL)=2 


ALPHA 


80X25 


COLOR - BW** 


4 




(AL)=3 


ALPHA 


80X25 


COLOR 


4 


* DEFAULT 


(AL)=4 


GRAPHICS 


320X200 


COLOR 


1 




(AL)=5 


GRAPHICS 


320X200 


COLOR - BW 


1 




(AL)=6 


GRAPHICS 


640X200 


COLOR - BW 


1 




(AL)=7 


ALPHA 


80X25 


MONOCHROME 


1/4 


* INTERNAL 



NOTE: IF HIGH BIT OF AL IS SET, THE REGEN BUFFER IS NOT CLEARED. 

* FOR MONOCHROME, CRT MODE WILL INTERNALLY DEFAULT TO 7. 
FOR MONO ON LCD THE MAXIMUM PAGES ALLOWED IS 4, OTHERWISE 
THE MAXIMUM PAGES ALLOWED IS 1. 

* FOR COLOR, AL=(7-255) WILL DEFAULT TO MODE 3 

** BW MODES OPERATE SAME AS COLOR MODES, BUT COLOR BURST IS 
NOT ENABLED 

(AH)=01H SET CURSOR TYPE 

(CH) = BITS 4-0 = START LINE FOR CURSOR 

** HARDWARE WILL ALWAYS CAUSE BLINK 

** SETTING BIT 5 OR 6 WILL CAUSE ERRATIC 

** BLINKING OR NO CURSOR AT ALL 

(CL) = BITS 4-0 = END LINE FOR CURSOR 

(AH)=02H SET CURSOR POSITION 

(BH) = PAGE NUMBER (MUST BE FOR GRAPHICS MODES) 
(DH,DL) = ROW, COLUMN (0,0) IS UPPER LEFT 
ROW = (0 - 24), COL = (0 - (CRT COLUMNS-l)) 
CRT COLUMNS IS EITHER 80 OR 40 

(AH)=03H READ CURSOR POSITION 

(BH) = PAGE NUMBER (MUST BE FOR GRAPHICS MODES) 
ON EXIT: 

(DH,DL) = ROW, COLUMN OF CURRENT CURSOR 
(CH,CL) = CURSOR MODE CURRENTLY SET 

(AH)=04H READ LIGHT PEN POSITION 
ON EXIT: 

(AH) = — LIGHT PEN SWITCH NOT DOWN/NOT TRIGGERED 
(AH) = 1 -- VALID LIGHT PEN VALUE IN REGISTERS 

(DH,DL) = ROW, COLUMN OF CHARACTER LP POSN 

(CH) = RASTER LINE (0-199) 

(BX) = PIXEL COLUMN (0-319,639) 

(AH)=05H SELECT ACTIVE DISPLAY PAGE(VALID ONLY FOR ALPHA MODES) 
(AL)=NEW PAGE VALUE 

VALID PAGE VALUES: ALSO, SEE AH=O0H FOR PAGE INFO 
MODES & 1 - (0-7) 
MODES 2 & 3 - (0-3) 
MODE 7 - 
MODE 7 & LCD CONFIGURED AS MONO - (0 - 3) 

(AH)=06H SCROLL ACTIVE PAGE UP 

(AL) = NUMBER OF LINES, INPUT LINES BLANKED AT BOTTOM 

OF WINDOW 

AL = MEANS BLANK ENTIRE WINDOW 
(CH,CL) = ROW, COLUMN OF UPPER LEFT CORNER OF SCROLL 
(DH.DL) = ROW, COLUMN OF LOWER RIGHT CORNER OF SCROLL 
(BH) = ATTRIBUTE TO BE USED ON BLANK LINE 
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(AH)=07H SCROLL ACTIVE PAGE DOWN 

(AL) = NUMBER OF LINES, INPUT LINES BLANKED AT TOP 
OF WINDOW 

AL = MEANS BLANK ENTIRE WINDOW 
(CH,CL) = ROW, COLUMN OF UPPER LEFT CORNER OF SCROLL 
(DH,DL) = ROW, COLUMN OF LOWER RIGHT CORNER OF SCROLL 
(BH) = ATTRIBUTE TO BE USED ON BLANK LINE 

CHARACTER HANDLING ROUTINES 

(AH)=08H READ ATTRIBUTE/CHARACTER AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE (FOR ALPHA MODES ONLY) 
ON EXIT: 

(AL) = CHAR READ 

(AH) = ATTRIBUTE OF CHAR READ (ALPHA MODES ONLY 

(AH)=09H WRITE ATTRIBUTE/CHARACTER AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE (FOR ALPHA MODES ONLY) 
(CX) = COUNT OF CHARACTERS TO WRITE 
(AL) = CHAR TO WRITE 

(BL) - ATTRIBUTE OF CHARACTER (ALPHA) /COLOR OF CHAR 
(GRAPHICS) 
SEE NOTE ON WRITE DOT FOR BIT 7 OF BL = 1. 

(AH)=OAH WRITE CHARACTER ONLY AT CURRENT CURSOR POSITION 

**** NOT VALID FOR MEDIUM RESOLUTION GRAPHICS **** 
(BH) = DISPLAY PAGE (FOR ALPHA MODES ONLY) 
(CX) = COUNT OF CHARACTERS TO WRITE 
(AL) = CHAR TO WRITE 
FOR READ/WRITE CHARACTER INTERFACE WHILE IN GRAPHICS MODE, THE 
CHARACTERS ARE FORMED FROM A CHARACTER GENERATOR IMAGE 
MAINTAINED IN THE SYSTEM ROM. 
FOR WRITE CHARACTER INTERFACE IN GRAPHICS MODE, THE REPLICATION 
FACTOR CONTAINED IN (CX) ON ENTRY WILL PRODUCE VALID 
RESULTS ONLY FOR CHARACTERS CONTAINED ON THE SAME ROW. 
CONTINUATION TO SUCCEEDING LINES WILL NOT PRODUCE 
CORRECTLY. 

GRAPHICS INTERFACE 
(AH)=OBH SET COLOR PALETTE 

(BH) = PALETTE COLOR ID BEING SET (0-127) 
(BL) = COLOR VALUE TO BE USED WITH THAT COLOR ID 
NOTE: FOR THE CURRENT COLOR CARD, THIS ENTRY POINT 
HAS MEANING ONLY FOR 320X200 GRAPHICS. 
COLOR ID = SELECTS THE BACKGND COLOR (0-15) 
COLOR ID = 1 SELECTS THE PALETTE TO BE USED: 

= GREEN(1)/RED(2)/YELL0W(3) 

1 = CYAN(1)/MAGENTA(2)/WHITE(3) 

IN 40X25 OR 80X25 ALPHA MODES, THE VALUE SET 
FOR PALETTE COLOR INDICATES THE 
BORDER COLOR TO BE USED (VALUES 0-31, 
WHERE 16-31 SELECT THE HIGH INTENSITY 
BACKGROUND SET. 

(AH)=OCH 



WRITE 


DOT 
















(DX) = 


= ROW NUMBER 
















(CX) = 


= COLUMN NUMBER 
















(AL) = 


= COLOR VALUE 


















IF BIT 7 OF AL 


= 1, 


THEN 


THE 


COLOR 


VALUE 


IS 




EXCLUSIVE OR'D 


WITH 


THE 


CURRENT 


CONTENTS 


OF 




THE DOT 

















(AH)=ODH READ DOT 

(DX) = ROW NUMBER 
(CX) - COLUMN NUMBER 
ON EXIT: 

(AL) = THE DOT READ 
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ASCII TELETYPE ROUTINE FOR OUTPUT 

(AH)=OEH WRITE TELETYPE TO ACTIVE PAGE 
(AL) = CHAR TO WRITE 

(BL) = FOREGROUND COLOR IN GRAPHICS MODE 
NOTE —SCREEN WIDTH IS CTRLLED BY PREVIOUS MODE SET 

(AH)=OFH CURRENT VIDEO STATE 

RETURNS THE CURRENT VIDEO STATE 
ON EXIT: 

(AL) = MODE CURRENTLY SET ( SEE AH=0 FOR EXPL 
(AH) = NUMBER OF CHARACTER COLUMNS ON SCREEN 
(BH) = CURRENT ACTIVE DISPLAY PAGE 

(AH)=10H RESERVED - NO OPERATION 
(AH)=11H RESERVED - NO OPERATION 
(AH)=12H RESERVED - NO OPERATION 

(AH)=13H WRITE STRING 

(ES:BP) = POINTER TO STRING TO BE WRITTEN 
(CX) = LENGTH OF CHARACER STRING TO WRITTEN 

IF CX = NO OPERATION 
(DX) = CURSOR POSITION FOR STRING TO BE WRITTEN 
(BH) = PAGE NUMBER 

(AL) = 

WRITE CHARACTER STRING 
BL - ATTRIBUTE 
STRING IS {CHAR, CHAR, ... ,CHAR} 
CURSOR NOT MOVED 
(AL) = 1 

WRITE CHARACTER STRING AND MOVE CURSOR 
BL - ATTRIBUTE 
STRING IS {CHAR, CHAR, ... ,CHAR} 
CURSOR IS MOVED 
(AL) = 2 

WRITE CHARACTER AND ATTRIBUTE STRING 
STRING IS {CHAR, ATTR, CHAR, ATTR .. ,CHAR,ATTR} 
CURSOR IS NOT MOVED 
(AL) = 3 

WRITE CHARACTER AND ATTR STRING AND MOVE CURSO 
STRING IS {CHAR, ATTR, CHAR, ATTR .. , CHAR, ATTR} 
CURSOR IS MOVED 
(AL) =4-255 

NO OPERATION 

NOTE: CARRIAGE RETURN, LINE FEED, BACKSPACE, AND BELL ARE 
TREATED AS COMMANDS RATHER THAN PRINTABLE CHARACTERS. 
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(AH)=14H LCD REQUEST 

LOAD LCD CHARACTER FONT / SET LCD HIGH INTENSITY 
SUBSTITUTE 

(AL) = - LOAD USER SPECIFIED FONT 

(ES) - SEGMENT ADDRESS OF USER CHARACTER TABLE 
(DI) - OFFSET TO FIRST CHARACTER TO BE STORED 
(CX) - NUMBER OF CHARACTERS TO STORE 

(1 - 256) VALUE CHECKED 
(DL) - CHAR OFFSET INTO RAM FONT STORAGE 
(BH) - NUMBER OF BYTES PER CHARACTER 

(1 - 255) VALUE CHECKED 
(BL) - = LOAD MAIN FONT (BLOCK 0) 

1 = LOAD ALTERNATE FONT (BLOCK 1) 

2 - 255 = NO OPERATION 

(AL) = 1 - LOAD SYSTEM ROM DEFAULT FONT 
(BL) - = LOAD MAIN FONT (BLOCK 0) 

1 = LOAD ALTERNATE FONT (BLOCK 1) 

2 - 255 = NO OPERATION 

(AL) = 2 -SET MAPPING OF LCD HIGH INTENSITY ATTRIBUTE 
(BL) - INTENSIFY MAPPING INPUT REGISTER 

= IGNORE HIGH INTENSITY ATTRIBUTE 

1 = MAP HIGH INTENSITY TO UNDERSCORE 

2 = MAP HIGH INTENSITY TO REVERSE IMAGE 

3 = MAP INTENSITY TO SELECT ALTERNATE FONT 

4 - 255 = NO OPERATION 
(AL) =3-255 

NO OPERATION 

(AH)=15H PHYSICAL DISPLAY DESCRIPTION PARAMETER REQUEST 

RETURNS THE ADDRESS OF A 7 WORD TABLE WHICH CONTAINS 
THE DESCRIPTION PARAMETERS OF THE CURRENT DISPLAY. 
IT ALSO RETURNS THE MONITOR NUMBER OF THE ALT DISPLAY 
ON EXIT: 

(ES:DI) = POINTS TO A 7 WORD PARAMETER TABLE 
AX = MONITOR NUMBER OF ALT DISPLAY. IF THERE IS 
NO ALTERNATE DISPLAY OR THE ALT DISPLAY IS 
INOPERATIVE THEN AX = 0. 

THE 7 WORD TABLE CONTAINS THE FOLLOWING INFOMATION: 
WORD INFORMATION 

1 MONITOR MODEL NUMBER (5140,5153,5151) 

2 NUMBER OF VERTICAL PELS / METER 

3 NUMBER OF HORIZONTAL PELS / METER 

4 TOTAL NUMBER OF VERTICAL PELS 

5 TOTAL NUMBER OF HORIZONTAL PELS 

6 HORIZONTAL PEL SPACING IN MICROMETERS 
(CENTER TO CENTER) 

7 VERTICAL PEL SPACING IN MICROMETERS 
(CENTER TO CENTER) 

DISPLAY TYPES AND TABLES 



WORD 


MONOCHROME 


CGA 


LCD AS CGA 


LCD AS MONO 


1 


5151 


HEX 


5153 HEX 


5140 HEX 


5140 HEX 


2 







0498 HEX 


08E1 HEX 





3 







0A15 HEX 


0987 HEX 





4 







00C8 HEX 


00C8 HEX 





5 







0280 HEX 


0280 HEX 





6 







0352 HEX 


01BB HEX 





7 







0184 HEX 


019A HEX 






***************************************************************** 

* STARTOFCODE * 

************************************************** 

ASSUME CS:ROMCODE,DS:DATA,ES:VIDEO_RAM 
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0000 




Ml 


_1 


LABEL WORD 


TBL OF RTNS WITHIN VIDEO I 


0000 


0069 R 




DW 




OFFSET 


SET_MODE 




0002 


01BA R 




DW 




OFFSET 


SET_CTYPE 




0004 


0241 R 




DW 




OFFSET 


SET_CPOS 




0006 


0290 R 




DW 




OFFSET 


READ_CURSOR 




0008 


07D3 R 




DW 




OFFSET 


READ_LPEN 




000A 


026C R 




DW 




OFFSET 


ACT_DISP_PAGE 


OOOC 


02F7 R 




DW 




OFFSET 


SCROLL_UP 




000 E 


037A R 




DW 




OFFSET 


SCROLL_DOWN 




0010 


03B6 R 




DW 




OFFSET 


READ_AC_CURRENT 


0012 


03 FC R 




DW 




OFFSET 


WRITE_AC_CURRENT 


0014 


0430 R 




DW 




OFFSET 


WRITE_C_CURRENT 


0016 


02AB R 




DW 




OFFSET 


SET.COLOR 




0018 


0474 R 




DW 




OFFSET 


WRITE_DOT 




001A 


0463 R 




DW 




OFFSET 


READ_DOT 




001C 


074F R 




DW 




OFFSET 


WRITE_TTY 




001E 


02D1 R 




DW 




OFFSET 


VIDEO_STATE 




0020 


016F R 




DW 




OFFSET 


VIDEO_RETURN 




0022 


016F R 




DW 




OFFSET 


VIDEO_RETURN 




0024 


016F R 




DW 




OFFSET 


VIDEO_RETURN 




0026 


0879 R 




DW 




OFFSET 


WRITE_STRING 




0028 


0927 R 




DW 




OFFSET 


LCD_REQUEST 




002A 


09E6 R 




DW 




OFFSET 


PHYS_DSP_DESCR_REQ 


= 002C 


M1L_1 


EQU $-Ml_l 








REGS_PUSHD 


STRUC 




0000 


0000 


TEMPBP 


DW 









0002 


0000 


BP 


_POS 


DW 









0004 


0000 


DI 


_POS 


DW 









0006 


0000 


SI 


_POS 


DW 









0008 


0000 


BX 


_POS 


DW 









OOOA 


0000 


CX 


_POS 


DW 









OOOC 


0000 


DX 


_POS 


DW 









OOOE 


0000 


DS 


_POS 


DW 









0010 


0000 


ES 


_POS 


DW 









0012 


0000 


IP 


_POS 


DW 









0014 


0000 


CS 


_POS 


DW 









0016 


0000 


FL 


_POS 


DW 









0018 




REGS_PUSHD 


ENDS 




002C 




VIDE0_I0_1 


PROC NEAR 




002C 


06 




PUSH 




ES 






002D 


IE 




PUSH 




DS 




SAVE REGISTERS 


002E 


52 




PUSH 




DX 






002F 


51 




PUSH 




CX 






0030 


53 




PUSH 




BX 






0031 


56 




PUSH 




SI 






0032 


57 




PUSH 




DI 






0033 


55 




PUSH 




BP 






0034 


FB 




STI 










0035 


FC 




CLD 










0036 


50 




PUSH 




AX 




SAVE AX VALUE 


0037 


8A C4 




MOV 




AL,AH 




GET INTO LOW BYTE 


0039 


32 E4 




XOR 




AH, AH 




ZERO TO HIGH BYTE 


003B 


Dl EO 




SAL 




AX,1 




*2 FOR TABLE LOOKUP 


003D 


8B FO 




MOV 




SI, AX 




PUT INTO SI FOR BRANCH 


003 F 


3D 002C 




CMP 




AX,M1L_ 


1 


TEST FOR WITHIN RANGE 


0042 


72 04 




JB 




M2 




BRANCH AROUND BRANCH 


0044 


58 




POP 




AX 




THROW AWAY THE PARAMETER 


0045 


E9 016F R 




JMP 




VIDEO_RETURN 


DO NOTHING IF NOT IN RANGE 


0048 




M2 












0048 


E8 0000 E 




CALL 




DDS 






004B 


B8 B800 




MOV 




AX,0B800H 


SEGMENT FOR CGA CARD 


004E 


8B 3E 0010 R 




MOV 




DI,EQUIP_FLAG 


GET EQUIPMENT SETTING 


0052 


81 E7 0030 




AND 




DI,30H 




ISOLATE CRT SWITCHES 


0056 


83 FF 30 




CMP 




DI,30H 




IS SETTING FOR MONO CARD? 


0059 


75 02 




JNE 




M3 






00 5 B 


B4 BO 




MOV 




AH,OBOH 




SEGMENT FOR MONO CARD 


005D 




M3 












005D 


8E CO 




'mov 




ES.AX 




SET PTR TT VIDEO RAM AREAS 


005F 


58 




POP 




AX 




RECOVER VALUE 


0060 


8A 26 0049 R 




MOV 




AH,CRT_MODE 


GET CURRENT MODE INTO AH 
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0064 2E: FF A4 0000 R JMP WORD PTR CS: [SI+OFFSET Ml_l] 

0069 VIDEO_IO_a ENDP 



SET_MODE 

THIS ROUTINE INITIALIZES THE ATTACHMENT TO 

THE SELECTED MODE. THE SCREEN IS BLANKED. 

IF CGA, THE ONLY VALID MODES ALLOWED ARE 0-6. 

ALL OTHER MODES ARE DEFAULTED TO MODE 3. 

IF MONO, MODE IS DEFAULTED TO 7. 
INPUT 

(AL) = MODE SELECTED 

(DS) = DATA SEGMENT 
(ES) = REGEN BUFFER SEGMENT 
(DI) = VIDEO SWITCHES FROM EQUIPMENT FLAG 
OUTPUT 

CURRENT DISPLAY INITIALIZED TO SELECTED MODE 

INTERRUPTS 

DISABLED DURING THE INITIALIZATION OF THE 
6845 REGISTERS 



0069 






SET_M0DE 


PROC NEAR 




0069 


50 




PUSH 


AX 


SAVE CLEAR REGEN BIT 


006A 


24 


7F 


AND 


AL,7FH 


TURN OFF CLEAR REGEN BIT 


006C 


BA 


03D4 


MOV 


DX,03D4H 


ADDRESS OF CGA CARD 


006F 


B3 


00 


MOV 


BL,0 


MODE SET FOR CGA CARD 


0071 


83 


FF 30 


CMP 


DI,30H 


IS MONO CARD INSTALLED 


0074 


74 


08 


JE 


M8 


, YES, JUMP TO MONO SET 


0076 


3C 


07 


CMP 


AL,7 


, IS MODE 7 OR GREATER FOR CGA 


0078 


72 


OA 


JB 


M8A 


CARD THEN DEFAULT TO 


007A 


BO 


03 


MOV 


AL,3 


MODE 3 (80 x 25 COLOR) 


007C 


EB 


06 


JMP 


SHORT M8A 










MONOCHROME OPERATION SELECTED 




007E 






M8: 






007E 


BO 


07 


MOV 


AL,7 


INDICATE MONO CARD MODE 


0080 


B2 


B4 


MOV 


DL,0B4H 


ADDRESS OF MONO CARD (3B4) 


0082 


FE 


C3 


INC 


BL 


MODE SET FOR MONO CARD 


0084 






M8A: 






0084 


E8 


0178 R 


CALL 


LCD_MOVE 


CK FOR LCD ADA CHANGE REQ 


0087 


8A 


EO 


MOV 


AH,AL 


SAVE MODE IN AH 


0089 


A2 


0049 R 


MOV 


CRT_MODE,AL 


SAVE IN GLOBAL VARIABLE 


008C 


89 


16 0063 


R MOV 


ADDR_6845,DX 


SAVE ADDRESS OF BASE 


0090 


IE 




PUSH 


DS 


SAVE POINTER TO DATA SEGMENT 


0091 


50 




PUSH 


AX 


SAVE MODE 


0092 


52 




PUSH 


DX 


SAVE OUTPUT PORT VALUE 


0093 


83 


C2 04 


ADD 


DX,4 


POINT TO CONTROL REGISTER 


0096 


8A 


C3 


MOV 


AL,BL 


GET MODE SET FOR CARD 


0098 


EE 




OUT 


DX,AL 


RESET VIDEO 

AND CHANGE CONFIG IF REQD 


0099 


5A 




POP 


DX 


BACK TO BASE REGISTER 


009A 


B8 


R 


MOV 


AX,ABSO 


SET UP FOR ABSO SEGMENT 


009D 


8E 


D8 


MOV 
ASSUME 


DS,AX 
DSrABSO 


ESTABLISH VECTOR TBL ADDR 


009F 


C5 


IE 0074 


R LDS 


BX,PARM_PTR 


GET POINTER TO VIDEO PARMS 


00A3 


58 




POP 


AX 


RECOVER PARMS 


00A4 


B9 


0000 E 


MOV 


CX, OFFSET M4 


LENGTH OF EACH ROW OF TABLE 


00A7 


80 


FC 02 


CMP 


AH, 2 


DETERMINE WHICH ONE TO USE 


OOAA 


72 


10 


JC 


M9 


MODE IS OR 1 


OOAC 


03 


D9 


ADD 


BX,CX 


MOVE TO NEXT ROW OF INIT TBL 


OOAE 


80 


FC 04 


CMP 


AH, 4 




00B1 


72 


09 


JC 


M9 


MODE IS 2 OR 3 


00B3 


03 


D9 


ADD 


BX,CX 


MOVE TO GRAPHICS ROW OF TBL 


00B5 


80 


FC 07 


CMP 


AH, 7 




00 B8 


72 


02 


JC 


M9 


MODE IS 4,5, OR 6 


00 BA 


03 


D9 


ADD 


BX,CX 


MOVE TO MONO CARD ROW OF TBL 
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OOBC 






M9 


UlNIb IU 


LUKKtU KUW Ul- 1N1I1/ 


U.1Z.AI1UN IMBLt 

OUT_INIT 


OOBC 


50 






PUSH 


AX 


SAVE MODE IN AH 


00 BD 


32 


E4 




XOR 


AH, AH 


AH WILL SERVE AS REGISTER 






; 


LOOP 


THROUGH 


TABLE, OUTPUTTTING REG ADDR, THEN VALUE FROM TABLE 


OOBF 


9C 






PUSHF 




SAVE CURRENT FLAGS 


OOCO 


FA 






CLI 




INHIBIT INTERRUPTS 


00C1 






M10: 




INIT LOOP 


00C1 


8A 


C4 




MOV 


AL,AH 


GET 6845 REGISTER NUMBER 


00C3 


EE 






OUT 


DX,AL 




00C4 


42 






INC 


DX 


POINT TO DATA PORT 


00C5 


FE 


C4 




INC 


AH 


NEXT REGISTER VALUE 


00C7 


8A 


07 




MOV 


AL,[BX] 


GET TABLE VALUE 


00C9 


EE 






OUT 


DX,AL 


OUT TO CHIP 


OOCA 


43 






INC 


BX 


NEXT IN TABLE 


OOCB 


4A 






DEC 


DX 


BACK TO POINTER REGISTER 


OOCC 


E2 


F3 




LOOP 


M10 


DO THE WHOLE TABLE 


OOCE 


9D 






POPF 




RESTORE FLAGS 


OOCF 


58 






POP 


AX 


GET MODE BACK 


OODO 


IF 






POP 
ASSUME 


DS 

DS : DATA 


REC+VER SEGMENT VALUE 






; 


FILL 


RE6EN AREA WITH BLANKS 




00D1 


33 


FF 




XOR 


DI,DI 


SET UP POINTER FOR REGEN 


00D3 


89 


3E 004E R 




MOV 


CRT_START,DI 


START ADDR SAVED IN GLOBAL 


00D7 


C6 


06 0062 R 00 




MOV 


ACTIVE_PAGE,0 


SET PAGE VALUE 


OODC 


59 






POP 


CX 


RESTORE CLEAR REGEN BIT 


OODD 


DO 


El 




SHL 


CL,1 


LOOK, DON'T CLR REGEN REQ 


OODF 


72 


21 




JC 


M13A 


IF ON - DON'T CLEAR REGEN 


00E1 


B9 


2000 




MOV 


CX,8192 


NUMBER OF WORDS IN CGA CARD 


00E4 


80 


FC 04 




CMP 


AH, 4 


TEST FOR GRAPHICS 


00E7 


72 


14 




JC 


M12 


NO_GRAPHICS_INIT 


00E9 


80 


FC 07 




CMP 


AH, 7 


TEST FOR MONO CARD 


OOEC 


74 


04 




JE 


Mil 


MONO_CARD_INIT 


OOEE 


33 


CO 




XOR 


AX, AX 


FILL FOR GRAPHICS MODE 


00 FO 


EB 


OE 




JMP 


SHORT M13 


CLEAR_BUFFER 


00F2 






Mil: 




MONO_CARD_INIT 


00F2 


B4 


20 




MOV 


AH,RTC_DSP_CON 


, GET DISPLAY CONFIGURATION 


00 F4 


E8 


0000 E 




CALL 


GET_RTC_REG 




00F7 


A8 


02 




TEST 


AL,DSP_MLCD 


IS LCD CONFIGURED AS MONO 


00 F9 


75 


02 




JNZ 


M12 


, YES, CLEAR ENTIRE BUFFER 


OOFB 


B5 


08 




MOV 


CH,08H 


, BUFFER SIZE ON MONO CARD 


OOFD 






M12: 




NO_GRAPHICS_INIT 


OOFD 


B8 


0720 




MOV 


AX,' '+7*256 


, FILL CHAR FOR ALPHA 


0100 






M13: 




, CLEAR_BUFFER 


0100 


F3/ AB 




REP 


STOSW 


FILL REGEN BFR WITH BLANKS 






; 


ENABLE VIDEO 


AND CORRECT PORT SET" 


riNG 


0102 


AO 


0049 R 


M13A: MOV AL,CRT_MODE 


GET THE MODE 


0105 


32 


E4 




XOR 


AH, AH 


, INTO AX REGISTER 


0107 


8B 


FO 




MOV 


SI, AX 


TBL POINTER, INDEXED BY MODE 


0109 


8B 


16 0063 R 




MOV 


DX,ADDR_6845 


PREPARE TO OUTPUT TO 
VIDEO ENABLE PORT 


010D 


83 


C2 04 




ADD 


DX,4 




0110 


2E 


8A 84 0000 


E 


MOV 


AL,CS:[SI+OFFSET M7] 




0115 


EE 






OUT 


DX,AL 


, SET VIDEO ENABLE PORT 


0116 


A2 


0065 R 




MOV 


CRT_MODE_SET,AL 


SAVE THAT VALUE 



DETERMINE NUMBER OF COLUMNS, BOTH FOR ENTIRE DISPLAY 
AND THE NUMBER TO BE USED FOR TTY INTERFACE 



0119 2E: 8A 84 0000 E MOV 
011E 32 E4 XOR 

0120 A3 004A R MOV 



AL,CS:[SI + OFFSET M6] 

AH, AH 

CRT_COLS,AX ; NO. OF COLS IN THIS SCREEN 



SET CRT LENGTH 



0123 81 E6 OOOE 

0127 2E: 8B 8C 0000 E 



AND 
MOV 



SI,OEH ; WORD OFFSET IN CLR LEN TABLE 

CX,CS:[SI + OFFSET M5] ; LENGTH TO CLEAR 
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012C 


80 


3E 0049 R 07 


CMP 


CRT_M0DE,7 


0131 


75 


OC 


JNE 


M13C 


0133 


B4 


20 


MOV 


AH,RTC_DSP_CON 


0135 


E8 


0000 E 


CALL 


GET_RTC_REG 


0138 


A8 


02 


TEST 


AL,DSP_MLCD 


013A 


74 


03 


JZ 


M13C 


013C 


B9 


1000 


MOV 


CX,4096 


013F 


89 


OE 004C R 


M13C: 
SET CURSOR 


WV CRT_LEN,C 
POSITIONS 


0143 


B9 


0008 


MOV 


CX,8 


0146 


BF 


0050 R 


MOV 


DI, OFFSET CURS 


0149 


IE 




PUSH 


DS 


014A 


07 




POP 


ES 


014B 


33 


CO 


XOR 


AX, AX 


014D 


F3/ 


AB 


REP 


STOSW 






; 


SET UP OVERSCAN REGISTER 


014F 


42 




INC 


DX 


0150 


BO 


30 


MOV 


AL,30H 


0152 


80 


3E 0049 R 06 


CMP 


CRT_M0DE,6 


0157 


75 


02 


JNZ 


M14 


0159 


BO 


3F 


MOV 


AL,3FH 


015B 






M14: 




015B 


EE 




OUT 


DX,AL 


015C 


A2 


0066 R 


MOV 
SET CURSOR 


CRT_PALETTE,AL 
TYPE TO DEFAULT 


015F 


B9 


0607 


MOV 


CX,0607H 


0162 


80 


3E 0049 R 07 


CMP 


CRT_M0DE,7 


0167 


75 


03 


JNE 


M14A 


0169 


B9 


OBOC 


MOV 


CX,OBOCH 


016C 


EB 


4C 90 


M14A: 


JMP SET_CTYPE 






; 


NORMAL RETURN FROM ALL VIDE 


016F 






VIDEO_RETURN: 


016F 


5D 




POP 


BP 


0170 


5F 




POP 


DI 


0171 


5E 




POP 


SI 


0172 


5B 




POP 


BX 


0173 


59 




POP 


CX 


0174 


5A 




POP 


DX 


0175 


IF 




POP 


DS 


0176 


07 




POP 


ES 


0177 


CF 




IRET 




0178 






SET_MODE 


ENDP 



MONO MODE 

GET DISPLAY CONFIGURATION 

LCD CONFIGURED AS MONO 

SET PG LEN TO 4096 TO ALLOW 
MULTI PG KEYS WHEN LCD MONO 
SAVE LENGTH OF CRT 



CLEAR ALL CURSOR POSITIONS 



ESTABLISH SEGMENT 
ADDRESSING 



FILL WITH ZEROES 



SET OVERSCAN PORT TO DEFAULT 
VALUE OF 30H FOR ALL MODES 
EXCEPT 640X200 
SEE IF MODE IS 640X200 BW 
IF NOT 640X200, GOTO REGULAR 
IF IT IS 640X200, PUT IN 3FH 

SEND CORRECT VAL TO 3D9 PORT 
SAVE THE VAL FOR FUTURE USE 



CURSOR MODE FOR MODES 0-6 

IS IT MODE 7 

NO, JUMP ON 

CURSOR MODE MONO (MODE 7) 

SET CUROSR TYPE 



ALL DONE 



2-86 ROM BIOS 



LCD_MOVE 

THIS ROUTINE CHECKS FOR MONOCHROME TO CGA OR VICE 
VERSA CHANGE REQUESTED FOR THE LCD DISPLAY. IF LCD 
IS THE ONLY DISPLAY, A CHANGE IS ALLOWED AND A CALL TO 
LCD_INIT IS MADE TO SET THE CONTROL REGISTERS BEFORE 
CONTINUING WITH THE MODE SET. 

INPUT 

AL HAS MODE SET VALUE 

OUTPUT 

IF LCD IS NOT THE ONLY DISPLAY THEN A RETURN IS MADE 
WITH NO CHANGES. IF THE LCD IS THE ONLY DISPLAY AND A 
CGA TO MONO OR MONO TO CGA CHANGE IS REQUESTED, THE 
DISPLAY CONFIG BYTE (RTC_DSP_CON) IS UPDATED TO REFLECT 
THE CHANGE. AND, A CALL TO LCD_INIT IS MADE TO UPDATE 
THE LCD CONTROL REGISTERS FOR THE NEW LCD MODE. 
A RETURN IS THEN MADE TO FINISH THE SET MODE. IF NO 
MONO TO CGA OR CGA TO MONO CHANGE IS REQUESTED - NO 
ACTION IS TAKEN. 

REGISTERS MODIFIED: SI 

INTERRUPTS: DISABLED DURING PROCESSING 



0178 






0178 


50 




0179 


53 




017A 


52 




017B 


9C 




017C 


8A 


D8 


017E 


FA 




017F 


B4 


20 


0181 


E8 


0000 E 


0184 


80 


FB 07 


0187 


74 


OE 


0189 


3C 


82 


018B 


75 


28 


018D 


BO 


81 


018F 


BA 03 B8 


0192 


B3 


01 


0194 


EB 


OC 90 


0197 






0197 


3C 


81 


0199 


75 


1A 


019B 


BO 


82 


019D 


BA 


03D8 


01A0 


2A 


DB 


01A2 






01A2 


E8 


0000 E 


01A5 


8A 


C3 


01A7 


EE 




01A8 


E8 


0000 E 


01AB 


BO 


00 


01AD 


E6 


74 


01AF 


E4 


75 


01B1 


OC 


40 


01B3 


E6 


75 


01B5 






01B5 


9D 




01B6 


5A 




01B7 


5B 




01B8 


58 





LCD_MOVE 


PROC N 


PUSH 


AX 


PUSH 


BX 


PUSH 


DX 


PUSHF 




MOV 


BL,AL 


CLI 




MOV 


AH,RTC_DSP_CON 


CALL 


GET_RTC_REG 


CMP 


BL,7 


JE 


LCD_M01 



NEAR 



SAVE FLAGS 

SAVE NEW MODE REQUEST 

DISABLE INTERRUPTS 

GET DISPLAY CONFIGURATION 

DATA RETURNED IN AL 

MONOCHROME MODE REQUESTED? 



CGA MODE BEING REQUESTED 



CMP 

JNE 
MOV 
MOV 
MOV 
JMP 



AL,DSP_MLCD+DSP_LCD_PRES; IS LCD PRES & CONFIGURED 

; MONO & NO OTHER ADA PRESENT 
LCD_M03 ; JUMP IF CAN'T EFFECT CHANGE 

AL,DSP_CLCD+DSP_LCD_PRES: SET LCD TO CGA MODE 



DX,MONO_CNTL 

BL,01 

LCD_M02 



GET MONO CONTROL ADDRESS 
DISABLE VIDEO FOR MONOCHROME 
GO CHANGE CONFIGURATION 



MONOCHROME MODE IS BEING REQUESTED 



LCD_M01: 
CMP 

JNE 
MOV 
MOV 
SUB 



AL,DSP_CLCD+DSP_LCD_PRES; IS LCD PRES & CONFIGURED 

; CGA & NO OTHER ADA PRESENT 
LCD_M03 ; NO THEN EXIT 

AL,DSP_MLCD+DSP_LCD_PRES; SET CONFIG LCD MONO MODE 
DX,CGA_CNTL ; MODE CTRL FOR PRESENT STATE 
BL,BL ; DISABLE VIDEO FOR CGA 



LCD ADAPTER CHANGE CAN BE MADE 



LCD_M02: 
CALL 
MOV 
OUT 
CALL 
MOV 
OUT 
IN 
OR 
OUT 



PUT_RTC_REG 

AL,BL 

DX,AL 

LCDINIT 

AL,LCD_FUNCT 

LCD_INDX,AL 

AL,LCD_DATA 

AL,PANEL_ENABLE 

LCD_DATA,AL 



LCD_M03: 
POPF 

POP DX 
POP BX 
POP AX 



UPDATE DISPLAY CONFIGURATION 
DISABLE VIDEO IN CRNT STATE 

SET UP LCD 

AL = 

PORT 74 

GET LCDC REGS 

TURN ON PANEL POWER 



RESTORE INTERRUPT FLAGS 
RESTORE REGISTERS 



ROM BIOS 2-87 



01B9 
01BA 



C3 



RET 
LCD_MOVE ENDP 



SET_CTYPE 



INPUT 



OUTPUT 



THIS ROUTINE SETS THE CURSOR VALUE. 

SPECIAL HANDLING OCCURS FOR THE LCD CURSOR. 

IF THE LCD IS THE CURRENT DISPLAY THE FOLLOWING OCCURS: 

FOR THE DISPLAY NO CURSOR MODE (BIT 5 = 1 & BIT 6 = OF THE 

CH REGISTER) IS CONVERTED TO THE LCD CONTROLLER DISPLAY NO 

CURSOR MODE (CX=0808H). ALSO, THE BLINKING MODE BITS (BIT 5 

AND BIT 6 OF THE CH REGISTER) ARE TURNED OFF. 

IF LCD CONFIGURED AS MONO IS THE CURRENT DISPLAY THEN THE 
LCDC REGISTERS FOR LCD CURSOR START AND LCD CURSOR END ARE 
REGISTERS 23 AND 24 RESPECTIVELY. AND THE CURSOR VALUES ARE 
RESCALED TO FIT IN AN 8x8 CHARACTER BOX. THIS IS BECAUSE 
THE MONO CHARACTER BOX IS 9x14 BUT THE LCD HAS AN 8x8 
CHARACTER BOX. 



(CX) HAS CURSOR VALUE CH-START LINE, CL-STOP LINE 
(DS) = DATA SEGMENT 
PHYSICAL CURSOR SET 



OIBA 










SET.CTYPE PROC NEAR 




OIBA 


89 


OE 


006C 


R 


MOV 


CURSOR_MODE,CX 


SAVE CURSOR VAL IN DATA AREA 


OIBE 


B4 


20 






MOV 


AH,RTC_DSP_CON 


GET LCD CONFIGURATION 


OICO 


E8 


0000 E 




CALL 


GET_RTC_REG 


FROM RTC. 


01C3 


B4 


OA 






MOV 


AH, 10 


CURSOR START REGISTER 


01C5 


81 


3E 


0063 


R 03D4 CMP 


ADDR_6845,03D4H 


ARE WE IN CGA MODE 


OICB 


74 


33 




MONO 


JE 
IS CURRENT 


SET_2 
MODE 


JUMP TO CGA MODE TEST 


OICD 


A8 


02 






TEST 


AL,DSP_MLCD 


IS LCD AS MONO CRNT DISPLAY? 


OICF 


74 


45 






JZ 


SET_C 


NO, JUMP ON IT IS MONO MNTR 


01D1 


B4 


17 






MOV 


AH,017H 


LCDC CUR ST REG AS MONO 


01D3 


F6 


C5 


40 




TEST 


CH,40H 


IS BIT 6 ON 


01D6 


75 


05 






JNZ 


SET_1 


YES , JUMP ON 


01D8 


F6 


C5 


20 




TEST 


CH,20H 


IS BIT 5 ON (NO CURSOR) 


OlDB 


75 


36 






JNZ 


SET_4 


YES, JUMP TO RST TO LCDC VAL 


OIDD 


80 


E5 


9F 




SET_1: AND CH,09FH 


TURN OFF BLINK (BIT 5 & 6) 










WHEN 


THE LCD AS 


MONO IS CURRENT MODE 1\ 


iE CURS IS RESCALED TO FIT IN 










A 8x8 CHARACTER 


BOX. THE CURSOR WILL Of 


<LY BE RESCALED IF CURS START 










(CH) 


AND CURSOR 


END (CL) VALUES ARE BE" 


rWEEN VALUES 0-13. 


OlEO 


80 


FD 


OD 




CMP 


CH,13 


INVALID CURSOR START VALUE? 


01E3 


77 


31 






JA 


SET_C 


YES, PROCESS AS IS. 


01E5 


80 


F9 


OD 




CMP 


CL,13 


INVALID CURSOR END VALUE? 


01E8 


77 


2C 






JA 


SET_C 


YES, PROCESS AS IS 


OlEA 


50 








PUSH 


AX 


SAVE LCDC CURSOR START REG 


OlEB 


BB 


080E 




MOV 


BX,080EH 


BH - MULT, BL - DIV FACTOR 


OlEE 


8A 


C5 






MOV 


AL,CH 


RESCALE CURSOR START 


OlFO 


E8 


021C R 




CALL 


SET_RESCALE 




01F3 


8A 


E8 






MOV 


CH,AL 


NEW CUROSR START 


01F5 


8A 


CI 






MOV 


AL,CL 


RESCALE CURSOR END 


01F7 


E8 


021C R 




CALL 


SET_RESCALE 




OlFA 


8A 


C8 






MOV 


CL,AL 


NEW CUROSR START 


OlFC 


58 








POP 


AX 


, RESTORE LCDC CUSR START REG 


OlFD 


EB 


17 


90 


CGA 


JMP 
IS CURRENT 


SET_C 
WDE. 


, CALL TO OUTPUT CX REG 


0200 










SET_2: 






0200 


A8 


01 






TEST 


AL,DSP_CLCD 


, IS LCD AS CGA CURRENT DSPLY? 


0202 


74 


12 






JZ 


SET_C 


, NO, ITS CGA MONITOR- AS IS 


0204 


F6 


C5 


40 




TEST 


CH,40H 


, IS BIT 6 ON 


0207 


74 


05 






JZ 


SET_3 


, NO, JUMP ON 



2-88 ROM BIOS 



0209 


80 E5 9F 


AND 


CH,09FH 


; TURN OFF BLINK (BIT 5 


& 6) 


020C 


EB 08 


JMP 


SHORT SET_C 






020E 




SET_3: 








020E 


F6 C5 20 


TEST 


CH,20H 


; IS BIT 5 ON (DSPLY NO 


CUSR) 


0211 


74 03 


JZ 


SET_C 


; NO, JUMP ON 




0213 


B9 0808 


SET_4: 


MOV CX,0808H 


; LCDC VAL FOR DSPLY NO 


CURSOR 


0216 




SET_C: 








0216 


E8 0228 R 


CALL 


M16 


; OUTPUT CX REG 




0219 


E9 016F R 


JMP 


VIDE0_RETURN 







THE RESCALING FORMULA IS (( X * 8) / 14.) + ROUND UP. X IS EITHER 
CH REGISTER OR CL REGISTER, 8 IS FOR THE LCD CHAR BOX HEIGHT(8 x 8), 
AND 14 IS FOR THE MONO CHARACTER BOX HEIGHT(9 x 14). ROUND UP IS 1 
IF THE REMAINDER IS GREATER THAN 6. AND, RND UP IS IF REMNDR IS < 
THAN 7. ON ENTRANCE AL WILL CONTAIN X, BH = 8 AND BL = 14. 



MULT BY LCD CHAR BX LEN 8 
DIV BY MONO CHAR BX LEN 14 
AH = RMNDR , AL = QUOTIENT 



021C 






SET_RESCALE: 


021C 


F6 


E7 


MUL 


BH 


021E 


F6 


F3 


DIV 


BL 


0220 


80 


FC 07 


CMP 


AH, 7 


0223 


72 


02 


JB 


SET_R1 


0225 


FE 


CO 


INC 


AL 


0227 


C3 




SET_R1: RET 






; — 


- THIS ROUTINE 


OUTPUTS THE 


0228 






M16: 




0228 


9C 




PUSHF 




0229 


FA 




CLI 




022A 


8B 


16 0063 R 


MOV 


DX,ADDR_6845 


022E 


8A 


C4 


MOV 


AL,AH 


0230 


EE 




OUT 


DX,AL 


0231 


42 




INC 


DX 


0232 


8A 


C5 


MOV 


AL,CH 


0234 


EE 




OUT 


DX,AL 


0235 


4A 




DEC 


DX 


0236 


8A 


C4 


MOV 


AL,AH 


0238 


FE 


CO 


INC 


AL 


023A 


EE 




OUT 


DX,AL 


023B 


42 




INC 


DX 


023C 


8A 


CI 


MOV 


AL,CL 


023E 


EE 




OUT 


DX,AL 


023F 


9D 




POPF 




0240 


C3 




RET 




0241 






SET_CTYPE 


ENDP 



; ADD 1 TO QUOTIENT FOR RND UP 
; RETURN TO CALLER 



SAVE CURRENT FLAGS 
INHIBIT INTERRUPTS 
ADDRESS REGISTER 
GET VALUE 
REGISTER SET 
DATA REGISTER 
DATA 



POINT TO OTHER DATA REGISTER 
SET FOR SECOND REGISTER 



SECOND DATA VALUE 



RESTORE FLAGS 
ALL DONE 



SET_CPOS 

THIS ROUTINE SETS THE CURRENT CURSOR 
POSITION TO THE NEW X-Y VALUES PASSED 

INPUT 

DX - ROW, COLUMN OF NEW CURSOR 
BH - DISPLAY PAGE OF CURSOR 
*** BH = FOR GRAPHICS *** 









DS - DATA 


SEGMENT 








OUTPUT 










CURSOR IS 


SET AT 6845 IF DISPLAY PAGE 








IS CURRENT 


DISPLAY 


0241 




SET_CPOS 


PROC NEAR 


0241 


8A CF 




MOV 


CL,BH 


0243 


32 ED 




XOR 


CH,CH 


ESTABLISH LOOP COUNT 


0245 


Dl El 




SAL 


CX,1 


WORD OFFSET 


0247 


8B Fl 




MOV 


SI,CX 


USE INDEX REGISTER 


0249 


89 94 005C 


) R 


MOV 


[SI+OFFSET CURSOR_POSN],DX ; SAVE THE POIN 


024D 


38 3E 0062 


I R 


CMP 


ACTIVE_PAGE,BH 


0251 


75 05 




JNZ 


M17 


SET_CPOS_RETURN 


0253 


8B C2 




MOV 


AX,DX 


GET ROW/COLUMN TO AX 


0255 


E8 025B R 




CALL 


M18 


CURSOR_SET 


0258 






M17: 




SET_CPOS_RETURN 


0258 


E9 016F R 




JMP 


VIDEO_RETURN 


025B 






SET_CPOS 


ENDP 





ROM BIOS 2-89 



025B 




5tl LUK5U 

M18 


< HUM I1UIN, AX W 

PROC NEAR 


025B 


E8 02E6 R 


CALL 


POSITION 


025E 


8B C8 


MOV 


CX,AX 


0260 


03 0E 004E R 


ADD 


CX,CRT_START 


0264 


Dl F9 


SAR 


CX,1 


0266 


B4 OE 


MOV 


AH, 14 


0268 


E8 0228 R 


CALL 


M16 


026B 


C3 


RET 




026C 




M18 


ENDP 



FIND LOCATION IN REGEN BFR 

ADD START ADDR FOR THIS PAGE 
DIVIDE BY 2 FOR CHAR COUNT 
REGISTER NUMBER FOR CURSOR 
OUTPUT THE VALUE TO THE 6845 



ACT_DISP_PAGE 

THIS ROUTINE SETS THE ACTIVE DISPLAY PAGE, ALLOWING THE 
FULL USE OF THE RAM SET ASIDE FOR THE VIDEO ATTACHMENT. 
**** VALID ONLY FOR ALPHA MODES **** 



INPUT 



AL HAS THE NEW ACTIVE DISPLAY PAGE 

(0-7) FOR MODES O&l, (0-3) FOR MODES 2&3, AND 

(0) FOR MODE 7 WHEN MONOCHROME MONITOR 

(0-3) FOR MODE 7 WHEN THE LCD IS CONFIGURED AS MONO 

(DS) = DATA SEGMENT 

THE 6845 IS RESET TO DISPLAY THAT PAGE 



026C 






ACT_DISP. 


.PAGE PROC NEAR 


026C 


A2 


0062 R 


MOV 


ACTIVE_PAGE,AL 


026F 


8B 


OE 004C R 


MOV 


CX,CRT_LEN 


0273 


98 




CBW 




0274 


50 




PUSH 


AX 


0275 


F7 


El 


MUL 


CX 


0277 


A3 


004E R 


MOV 


CRT_START,AX 


027A 


8B 


C8 


MOV 


CX,AX 


027C 


Dl 


F9 


SAR 


CX,1 


027 E 


B4 


OC 


MOV 


AH, 12 


0280 


E8 


0228 R 


CALL 


M16 


0283 


5B 




POP 


BX 


0284 


Dl 


E3 


SAL 


BX,1 


0286 


8B 


87 0050 R 


MOV 


AX,[BX + OFFSET C 


028A 


E8 


025B R 


CALL 


M18 


028D 


E9 


016F R 


JMP 


VIDEO_RETURN 


0290 






ACT_DISP. 


.PAGE ENDP 



SAVE ACTIVE PAGE VALUE 

GET SAVED LEN OF REGEN BFR 

CONVERT AL TO WORD 

SAVE PAGE VALUE 

DISPLAY PAGE TIMES REGEN LEN 

SAVE START ADDRESS FOR 

LATER REQUIREMENTS 

START ADDRESS TO CX 

DIVIDE BY 2 FOR 6845 

6845 REGISTER FOR START ADDR 

RECOVER PAGE VALUE 
*2 FOR WORD OFFSET 
R_POSN- ; GET CURSOR FOR PAGE 
SET THE CURSOR POSITION 



READ CURSOR 

THIS ROUTINE READS THE CURRENT CURSOR VALUE FROM THE 
6845, AND SENDS IT BACK TO THE CALLER 

INPUT 

BH - PAGE OF CURSOR, MUST BE FOR GRAPHICS 



OUTPUT 



DS - DATA SEGMENT 

DX - ROW, COLUMN OF THE CURRENT CURSOR POSITION 
CX - CURRENT CURSOR MODE 



0290 




READ_CURSOR PROC NEAR 




0290 


8A DF 


MOV 


BL,BH 




0292 


32 FF 


XOR 


BH,BH 




0294 


Dl E3 


SAL 


BX,1 


; WORD OFFSET 


0296 


8B 97 0050 R 


MOV 


DX,[BX+OFFSET CURSOR_POSN] 


029A 


8B OE 0060 R 


MOV 


CX,CURSOR_MODE 




029E 


55 


PUSH 


BP 




029F 


8B EC 


MOV 


BP,SP 


; GET PTR TO STACK SAVE AREA 


02A1 


89 56 OC 


MOV 


[BP].DX_POS,DX 


; SETUP RETURN VALUES IN STACK 


02A4 


89 4E OA 


MOV 


[BP].CX_POS,CX 


; SAVE AREA 


02A7 


5D 


POP 


BP 




02A8 


E9 016F R 


JMP 


VIDEO_RETURN 




02AB 




READ_CURSOR ENDP 





2-90 ROM BIOS 



SET COLOR 



INPUT 



OUTPUT 



THIS ROUTINE WILL ESTABLISH BACKGND COLOR, THE OVERSCAN 
COLOR, AND THE FOREGROUND COLOR SET FOR MEDIUM RESOLUTION 
GRAPHICS 

(BH) HAS COLOR ID 

IF BH=0, THE BACKGROUND COLOR VALUE IS SET 

FROM THE LOW BITS OF BL (0-31) 
IF BH=1, THE PALETTE SELECTION IS MADE 
BASED ON THE LOW BIT OF BL: 

0=GREEN, RED, YELLOW FOR COLORS 1,2,3 
1=BLUE, CYAN, MAGENTA FOR COLORS 1,2,3 
(BL) HAS THE COLOR VALUE TO BE USED 

(DS) - DATA SEGMENT 



THE COLOR SELECTION IS UPDATED 



02AB 
02AB 
02AF 
02B2 
02B5 
02B7 



8B 16 0063 R 
83 C2 05 
AO 0066 R 
OA FF 
75 OE 



SET_COLOR 
MOV 
ADD 
MOV 
OR 
JNZ 



PROC NEAR 
DX,ADDR_6845 
DX,5 

AL,CRT_PALETTE 
BH,BH 
M20 



I/O PORT FOR PALETTE 

OVERSCAN PORT 

GET THE CURRENT PALETTE VAL 

IS THIS COLOR 0? 

OUTPUT COLOR 1 



HANDLE COLOR BY SETTING THE BACKGROUND COLOR 



02B9 
02BB 
02BE 
02C0 
02C0 
02C1 
02C4 



24 EO 
80 E3 IF 
OA C3 

EE 

A2 0066 R 

E9 016F R 



M19: 



AND 
AND 
OR 
9: 
OUT 
MOV 
JMP 



AL.OEOH 
BL,01FH 
AL,BL 

DX,AL 

CRT_PALETTE,AL 

VIDEO_RETURN 



TURN OFF LOW 5 BITS OF CRNT 
TURN OFF H 3 BITS INPUT VAL 
PUT VALUE INTO REGISTER 
OUTPUT THE PALETTE 
SEND COLOR TO 3D9 PORT 
SAVE THE COLOR VALUE 



HANDLE COLOR 1 BY SELECTING THE PALETTE TO BE USED 



02C7 
02C7 
02C9 
02CB 
02CD 
02CF 
02D1 



24 DF 
DO EB 
73 F3 
OC 20 
EB EF 



M20: 

AND 

SHR 

JNC 

OR 

JMP 
SET_COLOR 



AL,ODFH 

BL,1 

M19 

AL,20H 

M19 



TURN OFF PALETTE SELECT BIT 
TEST THE LOW ORDER BIT OF BL 
ALREADY DONE 

TURN ON PALETTE SELECT BIT 
GO DO IT 



ENDP 



VIDEO STATE 

RETURNS THE CURRENT VIDEO STATE INFORMATION 
INPUT 

DS = DATA SEGMENT 
OUTPUT 

AH = NUMBER OF COLUMNS ON THE SCREEN 

AL = CURRENT VIDEO MODE 

BH = CURRENT ACTIVE PAGE 



02D1 
02D1 
02D5 
02D8 
02DC 
02DD 
02DF 
02E2 
02E3 
02E6 



8A 26 004A 

AO 0049 R 

8A 3E 0062 

55 

8B EC 

89 5E 08 

5D 

E9 016F R 



VIDE0_STATE PROC NEAR 


MOV 


AH, BYTE PTR CRT_COLS 


MOV 


AL,CRT_MODE 


MOV 


BH,ACTIVE_PAGE 


PUSH 


BP 


MOV 


BP,SP 


MOV 


[BP].BX_POS,BX 


POP 


BP 


JMP 


VIDEO_RETURN 


VIDEO_STATE ENDP 



; GET NUMBER OF COLUMNS 
CURRENT MODE 
GET CURRENT ACTIVE PAGE 

GET PTR TO STACK SAVE AREA 
SETUP RETURN VALUES IN STACK 



ROM BIOS 2-91 









POSITION 














THIS SERVICE ROUTINE CALCULATES THE REGEN 










BUFFER 


ADDRESS OF A CHARACTER IN THE ALPHA MODE 








INPUT 
















AX = ROW, COLUMN POSITION 










OUTPUT 
















AX = OFFSET OF CHAR POSITION IN REGEN BUFFER 


02E6 




POSITION 


PROC NEAR 




02E6 


53 






PUSH 


' BX 


; SAVE REGISTER 


02E7 


8B 


D8 




MOV 


BX,AX 




02E9 


8A 


C4 




MOV 


AL,AH 


; ROWS TO AL 


02 EB 


F6 


26 004/ 


\ R 


MUL 


BYTE PTR CRT_COLS 


; DETERMINE BYTES TO ROW 


02EF 


32 


FF 




XOR 


BH,BH 




02F1 


03 


C3 




ADD 


AX,BX 


; ADD IN COLUMN VALUE 


02F3 


Dl 


EO 




SAL 


AX,1 


; * 2 FOR ATTRIBUTE BYTES 


02F5 


5B 






POP 


BX 




02F6 


C3 






RET 






02F7 








POSITION 


ENDP 






SCROLL 


UP 














THIS ROUTINE MOVES A BLOCK 


OF CHARACTERS UP 










ON THE 


SCREEN 










INPUT 
















(AL) = 


NUMBER OF ROWS TO SCROLL 










(CX) = 


ROW/COLUMN OF UPPER 


LEFT CORNER 










(DX) = 


ROW/COLUMN OF LOWER 


RIGHT CORNER 










(BH) = 


ATTRIBUTE TO BE USED 


ON BLANKED LINE 










(AH) = 


CURRENT CRT MODE 












(DS) = 


DATA SEGMENT 












(ES) = 


REGEN BUFFER SEGMENT 










OUTPUT 


NONE - 


- THE REGEN BUFFER IS 


MODIFIED 






ASSUME 


CS:ROMCODE,DS:DATA, 


ESrDATA 


02F7 








SCROLL.UP 


PROC NEAR 




02F7 


8A 


D8 




MOV 


BL,AL 


; SAVE LINE COUNT IN BL 


02F9 


80 


FC 04 




CMP 


AH, 4 


; TEST FOR GRAPHICS MODE 


02FC 


72 


08 




JC 


Nl 


; HANDLE SEPARATELY 


02FE 


80 


FC 07 




CMP 


AH, 7 


; TEST FOR MONO CARD 


0301 


74 


03 




JE 


Nl 




0303 


E9 


04DA R 




JMP 


GRAPHICS_UP 




0306 








Nl: 




; UP_CONTINUE 


0306 


53 






PUSH 


BX 


; SAVE FILL ATTRIBUTE IN BH 


0307 


8B 


CI 




MOV 


AX,CX 


; UPPER LEFT POSITION 


0309 


E8 


0343 R 




CALL 


SCR0LL_P0SITION 


; DO SETUP FOR SCROLL 


030C 


74 


31 




JZ 


N7 


; BLANK_FIELD 


030E 


03 


FO 




ADD 


SI, AX 


; FROM ADDRESS 


0310 


8A 


E6 




MOV 


AH,DH 


; # ROWS IN BLOCK 


0312 


2A 


E3 




SUB 


AH,BL 


; # ROWS TO BE MOVED 


0314 








N2: 




; ROW_LOOP 


0314 


E8 


036A R 




CALL 


N10 


; MOVE ONE ROW 


0317 


03 


F5 




ADD 


SI.BP 




0319 


03 


FD 




ADD 


DI.BP 


; POINT TO NEXT LINE IN BLOCK 


031B 


FE 


CC 




DEC 


AH 


; COUNT OF LINES TO MOVE 


031D 


75 


F5 




JNZ 


N2 


; ROW_LOOP 


031F 








N3: 




; CLEAR_ENTRY 


03 IF 


58 






POP 


AX 


; RECOVER ATTRIBUTE IN AH 


0320 


BO 


20 




MOV 


AL,' ' 


; FILL WITH BLANKS 


0322 








N4: 




; CLEAR_LOOP 


0322 


E8 


0373 R 




CALL 


Nil 


; CLEAR THE ROW 


0325 


03 


FD 




ADD 


DI,BP 


; POINT TO NEXT LINE 


0327 


FE 


CB 




DEC 


BL 


; COUNTER OF LINES TO SCROLL 


0329 


75 


F7 




JNZ 


N4 


; CLEAR-LOOP 


03 2 B 








N5: 




; SCROLL_END 


032B 


E8 


0000 E 




CALL 


DDS 




032E 


80 


3E 004 


) R 07 


CMP 


CRT_M0DE,7 


; IS THIS THE MONO CARD 


0333 


74 


07 




JE 


N6 


; IF SO, SKIP THE MODE RESET 


0335 


AO 


0065 R 




MOV 


AL,CRT_MODE_SET 


; GET VALUE OF THE MODE SET 


0338 


BA 


03D8 




MOV 


DX,03D8H 


; ALWAYS SET CGA CARD PORT 


■033B 


EE 






OUT 


DX,AL 




033C 








N6: 




; VIDEO_RET_HERE 



2-92 ROM BIOS 



033C E9 016F R 

033F 

033F 8A DE 

0341 EB DC 

0343 



JMP VIDE0_RETURN 
N7: 

MOV BL,DH 

JMP N3 
SCROLL_UP ENDP 



BLANK_FIELD 

GET ROW COUNT 

GO CLEAR THAT AREA 



HANDLE COMMON SCROLL SET UP HERE 



0343 
0343 
0346 
034A 
034C 
034E 
0350 
0352 
0354 
0356 
035A 
035C 
035E 
0362 
0364 
0365 
0366 
0369 
036A 



E8 02E6 R 

03 06 004E R 

8B F8 

8B FO 

2B Dl 

FE C6 

FE C2 

32 ED 

8B 2E 004A R 

03 ED 

8A C3 

F6 26 004A R 

03 CO 

06 

IF 

80 

C3 



FB 00 



SCROLL_POSITION PROC 



NEAR 



CALL 
ADD 
MOV 
MOV 
SUB 
INC 
INC 
XOR 
MOV 
ADD 
MOV 
MUL 
ADD 
PUSH 
POP 
CMP 
RET 
SCROLL_POSITION ENDP 



POSITION 

AX,CRT_START 

DI.AX 

SI, AX 

DX,CX 

DH 

DL 

CH,CH 

BP,CRT_COLS 

BP,BP 

AL,BL 

BYTE PTR CRT_COLS 

AX, AX 

ES 

DS 

BL,0 



CONVERT TO REGEN POINTER 
OFFSET OF ACTIVE PAGE 
TO ADDRESS FOR SCROLL 
FROM ADDRESS FOR SCROLL 
DX = #ROWS, #COLS IN BLOCK 

INCREMENT FOR ORIGIN 

SET HIGH BYTE OF CNT TO ZERO 

GET NO. OF COLS IN DISPLAY 

TIMES 2 FOR ATTRIBUTE BYTE 

GET LINE COUNT 

FIND OFFSET TO FROM ADDRESS 

*2 FOR ATTRIBUTE BYTE 

ESTAB ADDSSNG TO REGEN BFR 

FOR BOTH POINTERS 

SCROLL MEANS BLANK FIELD 

RETURN WITH FLAGS SET 



M0VE_R0W 



036A 

036A 8A CA 

036C 56 

036D 57 

036E F3/ A5 

0370 5F 

0371 5E 

0372 C3 
0373 



N10 



PROC 



NEAR 



MOV 

PUSH 

PUSH 

REP 

POP 

POP 

RET 



CL,DL 

SI 

DI 

MOVSW 

DI 

SI 



GET # OF COLS TO MOVE 



SAVE START ADDRESS 

MOVE THAT LINE ON SCREEN 



RECOVER ADDRESSES 



N10 



ENDP 



CLEAR_ROW 



0373 

0373 8A CA 

0375 57 

0376 F3/ AB 

0378 5F 

0379 C3 
037A 



Nil PROC NEAR 
MOV CL,DL 



Nil 



PUSH 


DI 


REP 


STOSW 


POP 


DI 


RET 





; GET # COLUMNS TO CLEAR 
; STORE THE FILL CHARACTER 



ENDP 



SCROLL_DOWN 

THIS ROUTINE MOVES THE CHARACTERS WITHIN A 
DEFINED BLOCK DOWN ON THE SCREEN, FILLING THE 
TOP LINES WITH A DEFINED CHARACTER 



INPUT 



OUTPUT 



(AL) = NUMBER OF LINES TO SCROLL 

(CX) = UPPER LEFT CORNER OF REGION 

(DX) = LOWER RIGHT CORNER OF REGION 

(BH) = FILL CHARACTER 

(AH) = CURRENT CRT MODE 

(DS) = DATA SEGMENT 

(ES) = REGEN SEGMENT 

NONE -- SCREEN IS SCROLLED 



037A 
037A FD 



SCR0LL_D0WN 
STD 



PROC 



DIRECTION FOR SCROLL DOWN 
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037B 
037D 
0380 
0382 
0385 
0387 
038A 
038A 
038B 
038D 
0390 
0392 
0394 
0396 
0398 
0398 
039B 
039D 
039F 
03A1 
03A3 
03A3 
03A4 
03A6 
03A6 
03A9 
03AB 
03AD 
03AF 
03B2 
03B2 
03B4 
03B6 



8A D8 
80 FC 04 
72 08 
80 FC 07 
74 03 
E9 0533 R 

53 

8B C2 

E8 0343 R 

74 20 
2B F0 
8A E6 
2A E3 

E8 036A R 
2B F5 
2B FD 
FE CC 

75 F5 

58 
BO 20 

E8 0373 R 
2B FD 
FE CB 
75 F7 
E9 032B R 

8A DE 
EB ED 



MOV 


BL,AL 


; LINE COUNT TO BL 


CMP 


AH, 4 


; TEST FOR GRAPHICS 


JC 


N12 




CMP 


AH, 7 


; TEST FOR MONO CARD 


JE 


N12 




JMP 


GRAPHICS_DOWN 




N12: 




; CONTINUE_DOWN 


PUSH 


BX 


; SAVE ATTRIBUTE IN BH 


MOV 


AX,DX 


; LOWER RIGHT CORNER 


CALL 


SCROLL_POSITION 


; GET REGEN LOCATION 


JZ 


N16 




SUB 


SI, AX 


; SI IS FROM ADDRESS 


MOV 


AH,DH 


; GET TOTAL # ROWS 


SUB 


AH,BL 


; COUNT TO MOVE IN SCROLL 


N13: 






CALL 


N10 


; MOVE ONE ROW 


SUB 


SI,BP 




SUB 


DI,BP 




DEC 


AH 




JNZ 


N13 




N14: 






POP 


AX 


; RECOVER ATTRIBUTE IN AH 


MOV 


AL,' ' 




N15: 






CALL 


Nil 


; CLEAR ONE ROW 


SUB 


DI,BP 


; GO TO NEXT ROW 


DEC 


BL 




JNZ 


N15 




JMP 


N5 


; SCROLL_END 


N16: 






MOV 


BL.DH 




JMP 


N14 




SCROLL_DOWN ENDP 





READ_AC_CURRENT 

THIS ROUTINE READS THE ATTRIBUTE AND CHARACTER 

AT THE CURRENT CURSOR POSITION AND RETURNS THEM 

TO THE CALLER 
INPUT 

(BH) = DISPLAY PAGE ( ALPHA MODES ONLY ) 

(AH) = CURRENT CRT MODE 

(DS) = DATA SEGMENT 

(ES) = REGEN SEGMENT 
OUTPUT 

(AL) = CHAR READ 

(AH) = ATTRIBUTE READ 

INTERRUPTS: DISABLED DURING THE READ 



ASSUME CS : ROMCODE , DS : DATA , ES : DATA 



03 B6 








READ_AC_ 


.CURRENT PROC NEAR 




03B6 


80 


FC 


04 


CMP 


AH, 4 


; IS THIS GRAPHICS 


03 B9 


72 


08 




JC 


PI 




03BB 


80 


FC 


07 


CMP 


AH, 7 


; IS THIS MONO CARD 


03BE 


74 


03 




JE 


PI 




03C0 


E9 


066F R 


JMP 


GRAPHICS_READ 




03C3 








PI: 




; READ_AC_CONTINUE 


03C3 


E8 


03 EO R 


CALL 


FIND_POSITION 




03C6 


8B 


F3 




MOV 


SI,BX 


; ESTABLISH ADDRESSING IN SI 








; 


- WAIT FOR HORIZONTAL RETRACE 




03C8 


8B 


16 


0063 R 


MOV 


DX,ADDR_6845 


; GET BASE ADDRESS 


03CC 


83 


C2 


06 


ADD 


DX,6 


; POINT AT STATUS PORT 


03CF 


06 






PUSH 


ES 




03D0 


IF 






POP 


DS 


; GET SEGMENT FOR QUICK ACCESS 


03D1 








P2: 




; WAIT FOR RETRACE LOW 


03D1 


EC 






IN 


AL,DX 


; GET STATUS 


03D2 


A8 


01 




TEST 


AL,HORZ_RETRACE 


; IS HORZ RETRACE LOW 


03D4 


75 


FB 




JNZ 


P2 


; WAIT UNTIL IT IS 


03D6 


FA 






CLI 




; NO MORE INTERRUPTS 


03D7 








P3: 




; WAIT FOR RETRACE HIGH 


03D7 


EC 






IN 


AL,DX 


; GET STATUS 



2-94 ROM BIOS 



03D8 


A8 


01 


TEST 


AL,HORZ_RETRACE 


; IS IT HIGH 


03DA 


74 


FB 


JZ 


P3 


; WAIT UNTIL IT IS 


03DC 


AD 




LODSW 




; GET THE CHAR/ATTR 


03DD 


E9 


016F R 


JMP 


VIDEO_RETURN 




03E0 






READ_AC_ 


CURRENT ENDP 




03E0 






FIND_POSITION PROC NEAR 




03E0 


8A 


CF 


MOV 


CL,BH 


; DISPLAY PAGE TO CX 


03E2 


32 


ED 


XOR 


CH,CH 




03E4 


8B 


Fl 


MOV 


SI,CX 


; MOVE TO SI FOR INDEX 


03E6 


Dl 


E6 


SAL 


SI,1 


; * 2 FOR WORD OFFSET 


03E8 


8B 


84 0050 R 


MOV 


AX,[SI+ OFFSET CURSOR_POSN- ; GET ROW/COL OF PAGE 


03EC 


33 


DB 


XOR 


BX,BX 


; SET START ADDRESS TO ZERO 


03EE 


E3 


06 


JCXZ 


P5 


; NO_PAGE 


03 FO 






P4: 




; PAGEJ.OOP 


03F0 


03 


IE 004C R 


ADD 


BX,CRT_LEN 


; LENGTH OF BUFFER 


03 F4 


E2 


FA 


LOOP 


P4 




03F6 






P5: 




; NO_PAGE 


03F6 


E8 


02E6 R 


CALL 


POSITION 


; DETERMINE LOCATION IN REGEN 


03 F9 


03 


D8 


ADD 


BX,AX 


; ADD TO START OF REGEN 


03FB 


C3 




RET 






03FC 






FIND_POSITION ENDP 





WRITE_AC_CURRENT 

THIS ROUTINE WRITES THE ATTRIBUTE 
AND CHARACTER AT THE CURRENT CURSOR 
POSITION 



INPUT 



OUTPUT 



(AL) 
(BH) 
(BL) 
(CX) 
(AH) 
(DS) 
(ES) 

NONE 



CHAR TO WRITE 

DISPLAY PAGE 

ATTRIBUTE OF CHAR TO WRITE 

COUNT OF CHARACTERS TO WRITE 

CURRENT CRT MODE 

DATA SEGMENT 

REGEN SEGMENT 



INTERRUPTS: DISABLED DURING THE WRITE 



03FC 








WRITE_AC_ 


.CURRENT 


PROC 


NEAR 


03FC 


80 


FC 


04 




CMP 


AH, 4 




; IS THIS GRAPHICS 


03FF 


72 


08 






JC 


P6 






0401 


80 


FC 


07 




CMP 


AH, 7 




; IS THIS MONO CARD 


0404 


74 


03 






JE 


P6 






0406 


E9 


05BD R 




JMP 


GRAPHICS_WRITE 




0409 








P6 








; WRITE_AC_CONTINUE 


0409 


8A 


E3 






'mov 


AH,BL 




; GET ATTRIBUTE TO AH 


040 B 


50 








PUSH 


AX 




; SAVE CHAR/ATTRIBUTE 


040C 


51 








PUSH 


CX 




; SAVE WRITE COUNT 


040D 


E8 


03E0 R 




CALL 


FIND_POSITION 




0410 


8B 


FB 






MOV 


DI,BX 




; ADDRESS TO DI REGISTER 


0412 


59 








POP 


CX 




; WRITE COUNT 


0413 


5B 








POP 


BX 




; CHARACTER/ATTR IN BX REG 


0414 








P7 








; WRITEJ.OOP 








; — 


- WAIT 


FOR HORIZONTAL RETRACE 




0414 


8B 


16 


0063 R 




MOV 


DX,ADDR_6845 


; GET BASE ADDRESS 


0418 


83 


C2 


06 




ADD 


DX,6 




; POINT AT STATUS PORT 


041B 


9C 








PUSHF 






; SAVE CURRENT FLAGS 


041C 








P8 










041C 


EC 








IN 


AL,DX 




; GET STATUS 


041D 


A8 


01 






TEST 


AL,HORZ_ 


.RETRACE 


; IS IT LOW 


041F 


75 


FB 






JNZ 


P8 




; WAIT UNTIL IT IS 


0421 


FA 








CLI 






; NO MORE INTERRUPTS 


0422 








P9 










0422 


EC 








IN 


AL,DX 




; GET STATUS 


0423 


A8 


01 






TEST 


AL,HORZ. 


.RETRACE 


; IS IT HIGH 


0425 


74 


FB 






JZ 


P9 




; WAIT UNTIL IT IS 


0427 


8B 


C3 






MOV 


AX,BX 




; RECOVER THE CHAR/ATTR 


0429 


AB 








STOSW 






; PUT THE CHAR/ATTR 


042A 


9D 








POPF 






; INTERRUPTS BACK ON - IF ON 



ROM BIOS 2-95 



042B E2 E7 
042D E9 016F R 
0430 



LOOP P7 

JMP VIDEO_RETURN 
WRITE_AC_CURRENT ENDP 



AS MANY TIMES AS REQUESTED 



0430 
0430 
0433 
0435 
0438 
043A 
043D 
043D 
043E 
043F 
0442 
0444 
0445 
0446 



WRITE_C_CURRENT 

** NOT VALID FOR MEDIUM RESOLUTION GRAPHICS ** 
THIS ROUTINE WRITES THE CHARACTER AT 
THE CURRENT CURSOR POSITION, ATTRIBUTE 
UNCHANGED 



INPUT 



OUTPUT 



(BH) 
(CX) 
(AL) 
(AH) 
(DS) 
(ES) 

NONE 



DISPLAY PAGE 

COUNT OF CHARACTERS TO WRITE 

CHAR TO WRITE 

CURRENT CRT MODE 

DATA SEGMENT 

REGEN SEGMENT 



INTERRUPTS: DISABLED DURING THE WRITE 



WRITE_C_CURRENT PROC 



NEAR 



80 FC 04 
72 08 
80 FC 07 
74 03 
E9 05BD R 

50 

51 

E8 03 EO R 

8B FB 

59 

5B 



CMP 

JC 

CMP 

JE 

JMP 

P10: 
PUSH 
PUSH 
CALL 
MOV 
POP 
POP 

Pll: 



AH, 4 

P10 

AH, 7 

P10 

GRAPHICS_WRITE 

AX 

CX 

FIND_P0SITI0N 

DI,BX 

CX 

BX 



IS THIS GRAPHICS 
IS THIS MONO CARD 



SAVE CHAR ON STACK 
SAVE WRITE COUNT 

ADDRESS TO DI 

WRITE COUNT 

BL HAS CHAR TO WRITE 

WRITEJ.OOP 



WAIT FOR HORIZONTAL RETRACE 



0446 
044A 
044D 
044E 
044E 
044F 
0451 
0453 
0454 
0454 
0455 
0457 
0459 
045B 
045C 
045D 
045E 
0460 
0463 



8B 16 0063 R 
83 C2 06 
9C 

EC 

A8 01 
75 FB 

FA 

EC 

A8 01 

74 FB 

8A C3 

AA 

9D 

47 

E2 E6 

E9 016F R 



P12: 



P13: 



MOV 

ADD 

PUSHF 
2: 

IN 

TEST 

JNZ 

CLI 
3: 

IN 

TEST 

JZ 

MOV 

STOSB 

POPF 

INC 

LOOP 

JMP 



DX,ADDR_6845 
DX,6 



AL,DX 

AL,HORZ_RETRACE 

P12 



AL,DX 

AL,HORZ_RETRACE 

P13 

AL,BL 



DI 

Pll 

VIDEO_RETURN 



GET BASE ADDRESS 
POINT AT STATUS PORT 
SAVE CURRENT FLAGS 

GET STATUS 

IS IT LOW 

WAIT UNTIL IT IS 

NO MORE INTERRUPTS 

GET STATUS 

IS IT HIGH 

WAIT UNTIL IT IS 

RECOVER CHAR 

WRITE CHAR 

INTERRUPTS BACK ON - IF ON 

BUMP POINTER PAST ATTRIBUTE 

AS MANY TIMES AS REQUESTED 



WRITE_C_CURRENT ENDP 



2-96 ROM BIOS 



READ DOT 



ENTRY 



-- WRITE DOT 

THESE ROUTINES WILL WRITE A DOT, 

THE INDICATED LOCATION 



OR READ THE DOT AT 



EXIT 



0463 




0463 


E8 0497 R 


0466 


26: 8A 04 


0469 


22 C4 


046B 


D2 EO 


046D 


8A CE 


046F 


D2 CO 


0471 


E9 016F R 


0474 




0474 




0474 


50 


0475 


50 


0476 


E8 0497 R 


0479 


D2 E8 


047B 


22 C4 


047D 


26: 8A OC 


0480 


5B 


0481 


F6 C3 80 


0484 


75 OD 


0486 


F6 D4 


0488 


22 CC 


048A 


OA CI 


048C 




048C 


26: 88 04 


048F 


58 


0490 


E9 016F R 


0493 




0493 


32 CI 


0495 


EB F5 


0497 





DX = ROW (0-199) (THE ACTUAL VAL DEPENDS ON THE MODE) 
CX = COLUMN ( 0-639) ( THE VALUES ARE NOT RANGE CHECKED ) 
AL = DOT VALUE TO WRITE (1,2 OR 4 BITS DEPENDING ON MODE, 
REQ'D FOR WRITE DOT ONLY, RIGHT JU1TIFIED) 
BIT 7 OF AL=1 INDICATES XOR THE VAL INTO LOCATION 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 



AL = DOT VALUE READ, RIGHT JUSTIFIED, READ ONLY 



ASSUME 


CS:ROMCODE,D 


READ.DOT 


PROC 


CALL 


R3 


MOV 


AL,ES:-SI- 


AND 


AL,AH 


SHL 


AL,CL 


MOV 


CL,DH 


ROL 


AL,CL 


JMP 


VIDEO_RETURN 


READ_DOT 


ENDP 


WRITE_DOT 


PROC 


PUSH 


AX 


PUSH 


AX 


CALL 


R3 


SHR 


AL,CL 


AND 


AL,AH 


MOV 


CL,ES:-SI- 


POP 


BX 


TEST 


BL.80H 


JNZ 


R2 


NOT 


AH 


AND 


CL,AH 


OR 


AL,CL 


Rl: 




MOV 


ES:-SI-,AL 


POP 


AX 


JMP 


VIDEO_RETURN 


R2: 




XOR 


AL,CL 


JMP 


Rl 


WRITE_DOT 


ENDP 



NEAR 

; FIND BYTE POSITION OF DOT 
; GET THE BYTE 

; MASK OFF OTHER BITS IN BYTE 

; LEFT JUSTIFY THE VALUE 

; GET NUMBER OF BITS IN RESULT 

; RIGHT JUSTIFY THE RESULT 

; RETURN FROM VIDEO 10 



NEAR 

SAVE DOT VALUE 

TWICE 

FIND BYTE POSITION OF DOT 

SHIFT TO SET UP OUT BITS 

STRIP OFF THE OTHER BITS 
GET THE CURRENT BYTE 

RECOVER XOR FLAG 

IS IT ON 

YES, XOR THE DOT 

SET THE MASK TO REMOVE THE 

INDICATED BITS 

OR IN THE NEW VALUE OF BITS 

FINISH_DOT 
RESTORE THE BYTE IN MEMORY 



RETURN FROM VIDEO 10 

XOR_DOT 

EXCLUSIVE OR THE DOTS 

FINISH UP THE WRITING 



0497 

0497 53 

0498 50 



R3 PROCEDURE 

THIS SUBROUTINE DETERMINES THE REGEN BYTE LOCATION 
OF THE INDICATED ROW COLUMN VALUE IN GRAPHICS MODE. 
ENTRY — 

DX = ROW VALUE (0-199) 

CX = COLUMN VALUE (0-639) 



EXIT 



SI = OFFSET INTO REGEN BUFFER FOR BYTE OF INTEREST 
AH = MASK TO STRIP OFF THE BITS OF INTEREST 
CL = BITS TO SHIFT TO RIGHT JUSTIFY THE MASK IN AH 
DH = # BITS IN RESULT 



R3 PROC NEAR 
PUSH BX 
PUSH AX 



; SAVE BX DURING OPERATION 
; SAVE AL DURING OPERATION 



DETERMINE 1ST BYTE IN INDICATED ROW BY MULTIPLY ROW VALUE BY 40 
( LOW BIT OF ROW DETERMINES EVEN/ODD, 80 BYTES/ROW 



0499 


BO 28 


MOV 


AL,40 


049 B 


52 


PUSH 


DX 


049C 


80 E2 FE 


AND 


DL,OFEH 


049F 


F6 E2 


MUL 


DL 



SAVE ROW VALUE 

STRIP OFF ODD/EVEN BIT 

AX HAS ADDRESS OF 1ST BYTE 
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OF INDICATED ROW 


04 A 1 


5A 


POP 


DX 


RECOVER IT 


04A2 


F6 C2 01 


TEST 


DL,1 


TEST FOR EVEN/ODD 


04A5 


74 03 


JZ 


R4 


JUMP IF EVEN ROW 


04A7 


05 2000 


ADD 


AX,2000H 


OFFSET TO LOC OF ODD ROWS 


04AA 




R4: 




EVEN_ROW 


04AA 


8B F0 


MOV 


SI, AX 


MOVE POINTER TO SI 


04AC 


58 


POP 


AX 


RECOVER AL VALUE 


04AD 


8B Dl 


MOV 


DX,CX 


COLUMN VALUE TO DX 






— DETERMINE 


GRAPHICS MODE CURRENTLY 


IN EFFECT 



SET UP THE REGISTERS ACCORDING TO THE MODE 

CH = MASK FOR LOW OF COLUMN ADDRESS ( 7/3 FOR HIGH/MED RES) 
CL = # OF ADDRESS BITS IN COLUMN VALUE ( 3/2 FOR H/M) 
BL = MASK TO SELECT BITS FROM POINTED BYTE (80H/C0H FOR H/M) 
BH = NUMBER OF VALID BITS IN POINTED BYTE ( 1/2 FOR H/M) 



04AF 
04B2 
04B5 
04BA 
04BC 
04BF 



04C2 
04C2 



04C4 
04C6 
04C8 



04CA 
04CC 
04CC 

04CE 
04D0 
04D2 

04D4 
04D6 
04D8 
04D9 
04DA 



BB 02C0 
B9 0302 
80 3 E 0049 
72 06 
BB 0180 
B9 0703 



MOV 
MOV 
R 06 CMP 
JC 
MOV 
MOV 



BX,2C0H 

CX,302H 

CRT_M0DE,6 

R5 

BX,180H 

CX,703H 



22 EA 



D3 EA 
03 F2 
8A F7 



2A C9 

DO C8 

02 CD 
FE CF 
75 F8 

8A E3 
D2 EC 
5B 
C3 



; SET PARMS FOR MED RES 

; HANDLE IF MED ARES 

; SET PARMS FOR HIGH RES 

DETERMINE BIT OFFSET IN BYTE FROM COLUMN MASK 

R5: 

AND CH,DL ; ADDR OF PEL IN BYTE TO CH 

DETERMINE BYTE OFFSET FOR THIS LOCATION IN COLUMN 



SHR 
ADD 
MOV 



DX,CL 
SI.DX 
DH,BH 



SHIFT BY CORRECT AMOUNT 

INCREMENT THE POINTER 

GET # BITS IN RESULT TO DH 



R6: 



MULTIPLY BH (VALID BITS IN BYTE) BY CH (BIT OFFSET) 

SUB CL,CL ; ZERO INTO STORAGE LOCATION 

ROR AL,1 ; LEFT JUSTIFY THE VALUE 

IN AL (FOR WRITE) 
ADD IN THE BIT OFFSET VALUE 
LOOP CONTROL 

ON EXIT, CL HAS SHIFT COUNT 
TO RESTORE BITS 
GET MASK TO AH 
MOVE MASK TO CORRECT LOCAT 
RECOVER REG 
RETURN WITH SET UP 



ADD 


CL,CH 


DEC 


BH 


JNZ 


R6 


MOV 


AH,BL 


SHR 


AH,CL 


POP 


BX 


RET 




R3 ENDP 





GRAPHICS UP 

THIS ROUTINE SCROLLS UP THE INFORMATION ON THE CRT 
ENTRY 

CH.CL = UPPER LEFT CORNER OF REGION TO SCROLL 

DH,DL = LOWER RIGHT CORNER OF REGION TO SCROLL 
BOTH OF THE ABOVE ARE IN CHARACTER POSITIONS 

BH = FILL VALUE FOR BLANKED LINES 

AL = # LINES TO SCROLL (AL=0 MEANS BLANK THE ENTIRE 
FIELD) 

DS = DATA SEGMENT 

ES = REGEN SEGMENT 



EXIT 



04DA 

04DA 8A D8 

04DC 8B CI 



NOTHING, THE SCREEN IS SCROLLED 



GRAPHICS_UP PROC 
MOV BL,AL 
MOV AX,CX 



NEAR 



SAVE LINE COUNT IN BL 

GET UPPER LEFT POS IN AX REG 



USE CHARACTER SUBROUTINE FOR POSITIONING 



2-98 ROM BIOS 



04DE 


E8 


073C 


R 


--- AUUK 


tbb Kb 
CALL 


IUKNLU lb MULIlHLltU BY 

GRAPH.POSN 


L f-KUM LUKKtU VALUh 


04E1 


8B 


F8 






MOV 


DI.AX 




SAVE RESULT AS DEST ADDRESS 








; — 


— DETERMINE 


SIZE OF WINDOW 




04E3 


2B 


Dl 






SUB 


DX,CX 






04E5 


81 


C2 0101 




ADD 


DX.101H 




ADJUST VALUES 


04E9 


DO 


E6 






SAL 


DH,1 




MULTIPLY # ROWS BY 4 
SINCE 8 VERT DOTS/CHAR 


04EB 


DO 


E6 






SAL 


DH,1 




AND EVEN/ODD ROWS 








;-- 


— DETERMINE 


CRT MODE 






04ED 


80 


3E 0049 R 


06 


CMP 


CRT_MODE 


,6 


TEST FOR MEDIUM RES 


04F2 


73 


04 






JNC 


R7 




FIND_SOURCE 








;-- 


--- MEDIUM RES 


UP 






04F4 


DO 


E2 






SAL 


DL,1 




# COL * 2 SINCE 2 BYTES/CHAR 


04F6 


Dl 


E7 






SAL 


Dl ,1 




OFFSET *2 SINCE 2 BYTES/CHAR 








;-- 


■-- DETERMINE 


THE SOURCE 


(\DDRESS IN THE BUFFER 


04F8 








R7 








FIND_SOURCE 


04F8 


06 








PUSH 


ES 




GET SEG BOTH POINTING REGEN 


04F9 


IF 








POP 


DS 






04 FA 


2A 


ED 






SUB 


CH,CH 




ZERO TO HIGH OF COUNT REG 


04FC 


DO 


E3 






SAL 


BL,1 




MULTIPLY NO. OF LINES BY 4 


04FE 


DO 


E3 






SAL 


BL,1 






0500 


74 


2D 






JZ 


Rll 




IF ZERO, BLANK ENTIRE FIELD 


0502 


8A 


C3 






MOV 


AL,BL 




GET NUMBER OF LINES IN AL 


0504 


B4 


50 






MOV 


AH, 80 




80 BYTES/ROW 


0506 


F6 


E4 






MUL 


AH 




DETERMINE OFFSET TO SOURCE 


0508 


8B 


F7 






MOV 


SI.DI 




SET UP SOURCE 


050A 


03 


FO 






ADD 


SI, AX 




ADD IN OFFSET TO IT 


050C 


8A 


E6 






MOV 


AH,DH 




NUMBER OF ROWS IN FIELD 


050E 


2A 


E3 






SUB 


AH,BL 




DETERMINE NUMBER TO MOVE 








; — 


--- LOOP 


THROUGH, MOVING 


3NE ROW AT A 


TIME, BOTH EVEN & ODD FIELDS 


0510 








R8 








ROWJ.OOP 


0510 


E8 


0593 


R 




CALL 


R17 




MOVE ONE ROW 


0513 


81 


EE 1FB0 




SUB 


SI,2000H 


-80 


MOVE TO NEXT ROW 


0517 


81 


EF 1FB0 




SUB 


DI.2000H 


-80 




051B 


FE 


CC 






DEC 


AH 




NUMBER OF ROWS TO MOVE 


051D 


75 


Fl 






JNZ 


R8 




CONTINUE TILL ALL MOVED 








; — 


— FILL 


IN THE VACATED LINE(S) 




051F 








R9 








CLEAR_ENTRY 


051F 


8A 


C7 






MOV 


AL,BH 




ATTRIBUTE TO FILL WITH 


0521 








RIO: 








0521 


E8 


05AC 


R 




CALL 


R18 




CLEAR THAT ROW 


0524 


81 


EF 1FB0 




SUB 


DI.2000H 


-80 


POINT TO NEXT LINE 


0528 


FE 


CB 






DEC 


BL 




NUMBER OF LINES TO FILL 


052A 


75 


F5 






JNZ 


RIO 




CLEAR_LOOP 


052C 


E9 


016F 


R 




JMP 


VIDEO.RETURN 


EVERYTHING DONE 


052F 








Rll: 






BLANK_FIELD 


052F 


8A 


DE 






MOV 


BL,DH 




SET BLANK COUNT TO 
EVERYTHING IN FIELD 


0531 


EB 


EC 






JMP 


R9 




CLEAR THE FIELD 


0533 








GRAPHICS 


_UP ENDP 





ROM BIOS 2-99 



GRAPHICS DOWN 

THIS ROUTINE SCROLLS DOWN THE INFORMATION ON THE CRT 
ENTRY 

CH,CL = UPPER LEFT CORNER OF REGION TO SCROLL 

DH,DL = LOWER RIGHT CORNER OF REGION TO SCROLL 

BOTH OF THE ABOVE ARE IN CHARACTER POSITIONS 

BH = FILL VALUE FOR BLANKED LINES 

AL = # LINES TO SCROLL (AL=0 MEANS BLANK THE ENTIRE 
FIELD) 

DS = DATA SEGMENT 

ES = REGEN SEGMENT 



EXIT 



0533 

0533 FD 

0534 8A D8 
0536 8B C2 



NOTHING, THE SCREEN IS SCROLLED 



GRAPHICS_DOWN 
STD 

MOV BL,AL 
MOV AX,DX 



PROC 



NEAR 



SET DIRECTION 

SAVE LINE COUNT IN BL 

GET LOWER RIGHT POS INTO AX 



USE CHARACTER SUBROUTINE FOR POSITIONING 

ADDRESS RETURNED IS MULTIPLIED BY 2 FROM CORRECT VALUE 



0538 


E8 


073C R 


CALL 


GRAPH_POSN 




053B 


8B 


F8 




MOV 


DI,AX 




; SAVE RESULT AS DEST ADDR 








;--■ 


— DETERMINE 


SIZE OF WINDOW 




053D 


2B 


Dl 




SUB 


DX,CX 






053 F 


81 


C2 


0101 


ADD 


DX,101H 




; ADJUST VALUES 


0543 


DO 


E6 




SAL 


DH,1 




; MULTIPLY # ROWS BY 4 
; SINCE 8 VERT DOTS/CHAR 


0545 


DO 


E6 




SAL 
--- DETERMINE 


DH.,1 
CRT MODE 




; AND EVEN/ODD ROWS 


0547 


80 


3E 


0049 R 


06 CMP 


CRTJYI.ODE 


,6 


; TEST FOR MEDIUM RES 


0.54C 


73 


05 




JNC 
--- MEDIUM RES 


R12 
DOWN 




; FIND_SOURCE_DOWN 


054 E 


DO 


E2 




SAL 


DL,1 




; # COLUMNS * 2, SINCE 
; 2 BYTES/CHAR (OFFSET OK) 


0550 


Dl 


E7 




SAL 


DI,1 




; OFFSET *2 SINCE 2 BYTES/CHA 


0552 


47 






INC 


Dl 




; POINT TO LAST BYTE 








; — 


— DETERMINE 


THE SOURCE 


ADDRESS IN 


THE BUFFER 


0553 








R12: 






; FIND_SOURCE_DOWN 


0553 


06 






PUSH 


ES 




; BOTH SEGMENTS TO REGEN 


0554 


IF 






POP 


DS 






0555 


2A 


ED 




SUB 


CH,CH 




; ZERO TO HIGH OF COUNT REG 


0557 


81 


C7 


OOFO 


ADD 


DI,240 




; POINT TO LAST ROW OF PIXELS 


055B 


DO 


E3 




SAL 


BL,1 




; MULTIPLY NO. OF LINES BY 4 


055D 


DO 


E3 




SAL 


BL,1 






055F 


74 


2E 




JZ 


R16 




; IF ZERO, BLANK ENTIRE FIELD 


0561 


8A 


C3 




MOV 


AL,BL 




; GET NUMBER OF LINES IN AL 


0563 


B4 


50 




MOV 


AH, 80 




; 80 BYTES/ ROW 


0565 


F6 


E4 




MUL 


AH 




; DETERMINE OFFSET TO SOURCE 


0567 


8B 


F7 




MOV 


SI,DI 




; SET UP SOURCE 


0569 


2B 


FO 




SUB 


SI, AX 




; SUBTRACT THE OFFSET 


05.6B 


8A 


E6 




MOV 


AH,DH 




; NUMBER OF ROWS IN FIELD 


056D 


2A 


E3 




SUB 


AH,BL 




; DETERMINE NUMBER TO MOVE 








;-- 


--- LOOP THROUGH, MOVING 


ONE ROW AT 


A TIME, BOTH EVEN & ODD FIELDS 


056F 








R13: 






; ROW_LOOP_DOWN 


056F 


E8 


0593 R 


CALL 


R17 




; MOVE ONE ROW 


0572 


81 


EE 


2050 


SUB 


SI,2000H+80 


• MOVE TO NEXT ROW 


0576 


81 


EF 


2050 


SUB 


DI,2000H+80 




057A 


FE 


CC 




DEC 


AH 




; NUMBER OF ROWS TO MOVE 


057C 


75 


Fl 




JNZ 
— . FILL IN T\ 


R13 
\E VACATED L 


.INE(S) 


; CONTINUE TILL ALL MOVED 



2-100 ROM BIOS 



057E 






R14: 




057E 


8A 


C7 


MOV 


AL,BH 


0580 






R15: 




0580 


E8 


05AC R 


CALL 


R18 


0583 


81 


EF 2050 


SUB 


DI.2000H+80 


0587 


FE 


CB 


DEC 


BL 


0589 


75 


F5 


JNZ 


R15 


058B 


FC 




CLD 




058C 


E9 


016F R 


JMP 


VIDEO_RETURN 


058F 






R16: 




058F 


8A 


DE 


MOV 


BL.DH 


0591 


EB 


EB 


JMP 


R14 


0593 






GRAPHICS 
-- ROUTINE TC 


_DOWN ENDP 
MOVE ONE ROW 


0593 






R17 


PROC NEAR 


0593 


8A 


CA 


MOV 


CL,DL 


0595 


56 




PUSH 


SI 


0596 


57 




PUSH 


DI 


0597 


F3/ 


A4 


REP 


MOVSB 


0599 


5F 




POP 


DI 


059A 


5E 




POP 


SI 


059B 


81 


C6 2000 


ADD 


SI.2000H 


059F 


81 


C7 2000 


ADD 


DI.2000H 


05A3 


56 




PUSH 


SI 


05A4 


57 




PUSH 


DI 


05A5 


8A 


CA 


MOV 


CL,DL 


05A7 


F3/ 


A4 


REP 


MOVSB 


05A9 


5F 




POP 


DI 


05AA 


5E 




POP 


SI 


05AB 


C3 




RET 




05AC 






R17 


ENDP 






; — 


-- CLEAR A SINGLE ROW 


05AC 






R18 


PROC NEAR 


05AC 


8A 


CA 


MOV 


CL,DL 


05AE 


57 




PUSH 


DI 


05AF 


F3/ 


AA 


REP 


STOSB 


05B1 


5F 




POP 


DI 


05B2 


81 


C7 2000 


ADD 


DI,2000H 


05B6 


57 




PUSH 


DI 


05B7 


8A 


CA 


MOV 


CL,DL 


05B9 


F3/ AA 


REP 


STOSB 


05BB 


5F 




POP 


DI 


05BC 


C3 




RET 




05BD 






R18 


ENDP 



CLEAR_ENTRY_DOWN 

ATTRIBUTE TO FILL WITH 

CLEAR_LOOP_DOWN 

CLEAR A ROW 

POINT TO NEXT LINE 

NUMBER OF LINES TO FILL 

CLEAR_LOOP_DOWN 

RESET THE DIRECTION FLAG 

EVERYTHING DONE 

BLANK_FIELD_DOWN 

SET BLANK COUNT TO EVERYTHNG 

■IN FIELD 

CLEAR THE FIELD 



NUMBER OF BYTES IN THE ROW 



SAVE POINTERS 

MOVE THE EVEN FIELD 



POINT TO THE ODD FIELD 

SAVE THE POINTERS 

COUNT BACK 

MOVE THE ODD FIELD 

POINTERS BACK 
RETURN TO CALLER 



NUMBER OF BYTES IN FIELD 

SAVE POINTER 

STORE THE NEW VALUE 

POINTER BACK 

POINT TO ODD FIELD 



FILL THE ODD FILELD 
RETURN TO CALLER 



GRAPHICS WRITE 

THIS ROUTINE WRITES THE ASCII CHARACTER TO THE 
CURRENT POSITION ON THE SCREEN. 



ENTRY 



EXIT 



AL 
BL 



CX 
DS 
ES 



CHARACTER TO WRITE 

COLOR ATTRIBUTE TO BE USED FOR FOREGROUND COLOR 

IF BIT 7 IS SET, THE CHAR IS XOR'D INTO THE REGEN 

BUFFER (0 IS USED FOR THE BACKGROUND COLOR) 

NUMBER OF CHARS TO WRITE 

DATA SEGMENT 

REGEN SEGMENT 



NOTHING IS RETURNED 



FOR THIS ROUTINE. 
IN ROM. 



THE IMAGES USED TO FORM CHARS ARE CONTAINED 



ROM BIOS 2-101 



05BD 

05BD B4 00 

05BF 50 



ASSUME CS :R0MC0DE,DS: DATA, ES: DATA 
GRAPHICS_WRITE PROC NEAR 

MOV AH,0 ; ZERO TO HIGH OF CODE POINT 

PUSH AX ; SAVE CODE POINT VALUE 

DETERMINE POSITION IN REGEN BUFFER TO PUT CODE POINTS 



05C0 
05C3 



E8 0739 R 
8B F8 



05C5 58 

05C6 IE 

05C7 2B F6 

05C9 8E DE 



05CB 
05CD 
05CF 
05D3 
05D6 
05D8 
05DC 



3C 80 

73 07 

C5 36 0110 R 

EB 07 90 

2C 80 

C5 36 007C R 

8C DA 



05DE IF 
05DF 52 



CALL 
MOV 



S26 
DI,AX 



; FIND LOC IN REGEN BUFFER 
; REGEN POINTER IN DI 



DETERMINE REGION TO GET CODE POINTS FROM 

POP AX ; RECOVER CODE POINT 

PUSH DS 

SUB SI, SI 

MOV DS,SI 

ASSUME DS:ABSO 

CMP AL,80H 

JAE SO 

LDS SI,CSET_PTR 

JMP SI 

SO: SUB AL,80H 

LDS SI,EXT_PTR 

SI: MOV DX,DS 

ASSUME DS:DATA 

POP DS 

PUSH DX 



IF IT IS IN SECOND HALF 

JUMP 

IT'S IN FIRST HALF 

ZERO ORIGIN FOR SECOND HALF 
GET POINTER TO 2ND HALF 
SAVE THE SEGMENT OF THE TBL 

RECOVER DATA SEGMENT 

SAVE TABLE SEGMENT ON STACK 



DETERMINE GRAPHICS MODE IN OPERATION 



05E0 
05E0 
05E2 
05E4 
05E6 
05E8 
05ED 
05EE 



S2: 



Dl EO 

Dl EO 

Dl EO 

03 FO 

80 3E 0049 R 06 

IF 

72 2C 



SAL 
SAL 
SAL 
ADD 
CMP 
POP 
JC 



AX,1 

AX,1 

AX,1 

SI, AX 

CRT_M0DE,6 

DS 

S7 



; DETERMINE_MODE 

; MULTIPLY CODE POINT 

; VALUE BY 8 

; SI HAS OFFSET OF CODES 

; RECOVER TBL POINTER SEGMENT 

; TEST FOR MEDIUM RESOLUTION 



HIGH RESOLUTION MODE 



05F0 
05F0 
05F1 
05F2 
05F4 
05F4 
05F5 
05F8 
05 FA 
05FB 
05FC 
05FC 
0601 
0604 
0606 
0608 
0609 
060A 
060B 
060D 
0610 
0610 
0613 
0614 
0615 
061A 



S3: 



57 
56 
B6 04 

AC 

F6 C3 80 

75 16 

AA 

AC 

26: 88 85 1FFF 

83 C7 4F 

FE CE 

75 EC 

5E 

5F 

47 

E2 E3 

E9 016F R 



26: 
AA 
AC 
26: 



32 05 



S4: 



S5: 



S6: 



32 85 1FFF 



EB EO 



PUSH 
PUSH 
MOV 

'lodsb 

TEST 
JNZ 
STOSB 
LODSB 

MOV 

ADD 

DEC 

JNZ 

POP 

POP 

INC 

LOOP 

JMP 

XOR 

STOSB 

LODSB 

XOR 

JMP 



DI 
SI 
DH,4 



BL,80H 
S6 



ES:[DI+2000H-1],AL 

DI,79 

DH 

S4 

SI 

DI 

DI 

S3 

VIDEO_RETURN 



AL,ES:[DI] 



HIGH_CHAR 

SAVE REGEN POINTER 

SAVE CODE POINTER 

NUMBER OF TIMES THROUGH LOOP 

GET BYTE FROM CODE POINTS 
SHOULD WE USE THE FUNCTION 
TO PUT CHAR IN 
STORE IN REGEN BUFFER 



STORE IN SECOND HALF 
; MOVE TO NEXT ROW IN REGEN 
; DONE WITH LOOP 



RECOVER REGEN POINTER 
POINT TO NEXT CHAR POSITION 
MORE CHARS TO WRITE 



EXCLUSIVE OR WITH CURRENT 
; STORE THE CODE POINT 
; AGAIN FOR ODD FIELD 

AL,ES:[DI+2000H-1] 

S5 ; BACK TO MAINSTREAM 



MEDIUM RESOLUTION WRITE 



061C 

061C 8A D3 

061E Dl E7 

0620 E8 06F7 R 



S7: 



MOV 
SAL 
CALL 



DL,BL 
DI ,1 
S19 



MED_RES_WRITE 
SAVE HIGH COLOR BIT 
0FFSET*2 SINCE 2 BYTES/CHAR 
EXPAND BL TO FULL WORD 



2-102 ROM BIOS 



0623 






S8 










MED.CHAR 


0623 


57 






PUSH 


DI 






SAVE REGEN POINTER 


0624 


56 






PUSH 


SI 






SAVE THE CODE POINTER 


0625 


B6 04 






MOV 


DH,4 






NUMBER OF LOOPS 


0627 






S9 












0627 


AC 






'lodsb 








GET CODE POINT 


0628 


E8 070C R 






CALL 


S21 






DOUBLE UP ALL THE BITS 


062B 


23 C3 






AND 


AX,BX 






CONVERT THEM TO FOREGROUND 
COLOR ( BACK ) 


062D 


F6 C2 80 






TEST 


DL,80H 






IS THIS XOR FUNCTION 


0630 


74 07 






JZ 


S10 






NO, STORE IT IN AS IT IS 


0632 


26: 32 25 






XOR 


AH,ES: 


[DI] 




DO FUNCTION WITH HALF 


0635 


26: 32 45 


01 




XOR 


AL,ES: 


[DI+1] ; 


AND WITH OTHER HALF 


0639 






S10: 










0639 


26: 88 25 






MOV 


ES:-DI 


-,AH 


STORE FIRST BYTE 


063C 


26: 88 45 


01 




MOV 


ES: [DI 


+ 1],AL ; 


STORE SECOND BYTE 


0640 


AC 






LODSB 








GET CODE POINT 


0641 


E8 070C R 






CALL 


S21 








0644 


23 C3 






AND 


AX,BX 






CONVERT TO COLOR 


0646 


F6 C2 80 






TEST 


DL,80H 






AGAIN, IS THIS XOR FUNCTION 


0649 


74 0A 






JZ 


Sll 






NO, JUST STORE THE VALUES 


064B 


26: 32 A5 


2000 




XOR 


AH,ES: 


-DI+2000H 


- ; 


: UNCTION WITH FIRST HALF 


0650 


26: 32 85 


2001 




XOR 


AL,ES: 


-DI+2001H- 


■ ; AND WITH SECOND HALF 


0655 






Sll: 










0655 


26: 88 A5 


2000 




MOV 


ES:[DI+2000H],AH 




065A 


26: 88 85 


2001 




MOV 


ES:-DI 


+2000H+1- 


AL 


PUT IN 2ND BUFR PART 


065F 


83 C7 50 






ADD 


DI,80 






POINT TO NEXT LOCATION 


0662 


FE CE 






DEC 


DH 








0664 


75 CI 






JNZ 


S9 






KEEP GOING 


0666 


5E 






POP 


SI 






RECOVER CODE PONTER 


0667 


5F 






POP 


DI 






RECOVER REGEN POINTER 


0668 


47 






INC 


DI 






POINT TO NEXT CHAR POSITION 


0669 


47 






INC 


DI 








066A 


E2 B7 






LOOP 


S8 






MORE TO WRITE 


066C 


E9 016F R 






JMP 


VIDEO. 


RETURN 






066F 






GRAPHICS- 


.WRITE ENDP 







066F 
066F 
0672 
0674 



0679 
067E 
067F 
0680 



GRAPHICS READ 

THIS ROUTINE READS THE ASCII CHARACTER AT THE CURRENT 
CURSOR POSITION ON THE SCREEN BY MATCHING THE DOTS ON 
THE SCREEN TO THE CHARACTER GENERATOR CODE POINTS 



ENTRY 



EXIT 



( IS ASSUMED AS THE BACKGROUND COLOR ) 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 

AL = CHARACTER READ AT THAT POSITION (0 RETURNED IF 
NONE FOUND) 



FOR THIS ROUTINE, THE IMAGES USED TO FORM CHARS ARE CONTAINED 
IN ROM. 



E8 0739 R 
8B FO 
83 EC 08 



0677 8B EC 



GRAPHICS_READ PROC 
CALL S26 
MOV SI, AX 
SUB SP,8 

MOV BP,SP 

DETERMINE GRAPHICS MODES 



NEAR 



80 3E 0049 R 06 

06 

IF 

72 1A 



CMP 
PUSH 
POP 
JC 



CRT_M0DE,6 

ES 

DS 

S13 



CONVERTED TO OFFSET IN REGEN 

SAVE IN SI 

ALLOCATE SPACE TO SAVE THE 

READ CODE POINT 

POINTER TO SAVE AREA 



POINT TO REGEN SEGMENT 
MEDIUM RESOLUTION 



0682 


B6 04 


MOV 


0684 




S12: 


0684 


8A 04 


MOV 



HIGH RESOLUTION READ 

GET VALUES FROM REGEN BUFFER AND CONVERT TO CODE POINT 
DH,4 ; NUMBER OF PASSES 

AL,[SI] ; GET FIRST BYTE 



ROM BIOS 2103 



06F4 
06F7 



E9 016F R 



JMP VIDEO_RETURN 
GRAPHICS_READ ENDP 



ALL DONE 



EXPAND_MED_COLOR - S19 

THIS ROUTINE EXPANDS THE LOW 2 BITS IN BL TO 

FILL THE ENTIRE BX REGISTER 
ENTRY 

BL = COLOR TO BE USED ( LOW 2 BITS ) 
EXIT 

BX = COLOR TO BE USED ( 8 REPLICATIONS OF THE 

2 COLOR BITS ) 



06F7 






S19 


PROC NEAR 


06F7 


80 


E3 03 


AND 


BL,3 ; 


06FA 


8A 


C3 


MOV 


AL,BL ; 


06FC 


51 




PUSH 


CX ; 


06FD 


B9 


0003 


MOV 


CX,3 ; 


0700 






S20: 




0700 


DO 


EO 


SAL 


AL,1 


0702 


DO 


EO 


SAL 


AL,1 ; 


0704 


OA 


D8 


OR 


BL,AL ; 


0706 


E2 


F8 


LOOP 


S20 


0708 


8A 


FB 


MOV 


BH,BL ; 


070A 


59 




POP 


CX ; 


070B 


C3 




RET 




070C 






S19 


ENDP 



ISOLATE THE COLOR BITS 

COPY TO AL 

SAVE REGISTER 

NUMBER OF TIMES TO DO THIS 



LEFT SHIFT BY 2 

ANOTHER COLOR VERSION INTO BL 

FILL ALL OF BL 

FILL UPPER PORTION 

REGISTER BACK 

ALL DONE 



EXPAND_BYTE - S21 

THIS ROUTINE TAKES THE BYTE IN AL AND DOUBLES 
ALL OF THE BITS, TURNING THE 8 BITS INTO 
16 BITS. THE RESULT IS LEFT IN AX 



070C 






070C 


52 




070D 


BA 


80 


0710 






0710 


DO 


E8 


0712 


Dl 


DA 


0714 


Dl 


FA 


0716 


73 


F8 


0718 


8B 


C2 


071A 


5A 




071B 


C3 




071C 







S21 



PROC 



NEAR 



PUSH 


DX 


MOV 


DX,8000H 


DBLBIT4 




SHR 


AL,1 


RCR 


DX,1 


SAR 


DX,1 


JNB 


DBLBIT4 


MOV 


AX,DX 


POP 


DX 


RET 




S21 


ENDP 



SAVE REGISTER 

BIT TO TERMINATE LOOP 

LOW ORDER BIT TO CARRY FLAG 
FROM CARRY TO HIGH OF RESULT 
DBL HIGH ORDER BIT -SIGN EXT 
TERM WHEN BIT SHIFTED OUT 
PUT RESULT INTO AX 
RESTORE REGISTER 
RETURN 



MED_READ_BYTE - S23 

THIS ROUTINE WILL TAKE 2 BYTES FROM THE REGEN 
BUFFER, COMPARE AGAINST THE CURRENT FOREGROUND 
COLOR, AND PLACE THE CORRESPONDING ON/OFF BIT 
PATTERN INTO THE CURRENT POSITION IN THE SAVE 
AREA 



ENTRY 



EXIT 



SI,DS = POINTER TO REGEN AREA OF INTEREST 
BX = EXPANDED FOREGROUND COLOR 
BP = POINTER TO SAVE AREA 

BP IS INCREMENT AFTER SAVE 



071C 








S23 


PROC NEAR 


071C 


8A 


24 




MOV 


AH, [SI] 


071E 


8A 


44 


01 


MOV 


AL, [SI+1] 


0721 


B9 


COOO 


MOV 


CX,OCOOOH 


0724 


B2 


00 




MOV 


DL,0 


0726 








S24: 




0726 


85 


CI 




TEST 


AX,CX 


0728 


F8 






CLC 




0729 


74 


01 




JZ 


S25 


072B 


F9 






STC 




072C 


DO 


D2 




S25: 


RCL DL,1 


072E 


Dl 


E9 




SHR 


CX,1 


0730 


Dl 


E9 




SHR 


CX,1 


0732 


73 


F2 




J.NC 


S24 


0734 


88 


56 


00 


MOV 


[BP],DL 



GET FIRST BYTE 

GET SECOND BYTE 

2 BIT MASK TO TEST ENTRIES 

RESULT REGISTER 

IS THIS SECTION BACKGROUND? 
CLEAR CARRY 

IF ZERO, IT IS BACKGROUND 
WASN'T, SO SET CARRY 
MOVE THAT BIT INTO RESULT 

MOVE MASK RIGHT BY 2 BITS 
AGAIN IF MASK NOT FALL OUT 
STORE RESULT IN SAVE AREA 



2-104 ROM BIOS 



0686 


88 


46 


00 


MOV 


[BP],AL 


SAVE IN STORAGE AREA 


0689 


45 






INC 


BP 


NEXT LOCATION 


068A 


8A 


84 


2000 


MOV 


AL,[SI+2000H] 


GET LOWER REGION BYTE 


068E 


88 


46 


00 


MOV 


[BP],AL 


ADJUST AND STORE 


0691 


45 






INC 


BP 




0692 


83 


C6 


50 


ADD 


SI, 80 


POINTER INTO REGEN 


0695 


FE 


CE 




DEC 


DH 


LOOP CONTROL 


0697 


75 


EB 




JNZ 


S12 


DO IT SOME MORE 


0699 


EB 


17 


90 


JMP 


S15 


GO MATCH SAVED CODE POINTS 








; 


■ MEDIUM RESOLUTION READ 




069C 








S13: 




. MED_RES_READ 


069C 


Dl 


E6 




SAL 


SI ,1 


0FFSET*2 SINCE 2 BYTES/CHAR 


069E 


B6 


04 




MOV 


DH,4 


NUMBER OF PASSES 


06A0 








S14: 






06A0 


E8 


071C R 


CALL 


S23 


GET PAIR BYTES FROM REGEN 














INTO SINGLE SAVE 


06A3 


81 


C6 


2000 


ADD 


SI,2000H 


GO TO LOWER REGION 


06A7 


E8 


071C R 


CALL 


S23 


GET THIS PAIR INTO SAVE 


06AA 


81 


EE 


1FB0 


SUB 


SI,2000H-80 


ADJUST PTR BACK INTO UPPER 


06AE 


FE 


CE 




DEC 


DH 




06B0 


75 


EE 




JNZ 


S14 


KEEP GOING UNTIL ALL 8 DONE 








; 


- SAVE AREA HAS CHARACTER IN IT, MATCH IT 


06B2 








S15: 




FIND.CHAR 


06B2 


2B 


FF 




SUB 


DI,DI 




06B4 


8E 


C7 




MOV 
ASSUME 


ES,DI 
ESrABSO 




06B6 


26 


C4 


3E 0110 


R LES 

ASSUME 


DI,CSET_PTR 
ES: NOTHING 


ESTABLISH ADDRESSING 


06BB 


83 


ED 


08 


SUB 


BP,8 


ADJUST POINTER TO BEGINNING 
OF SAVE AREA 


06BE 


8B 


F5 




MOV 


SI,BP 




06C0 


FC 






CLD 




ENSURE DIRECTION 


06C1 


BO 


00 




MOV 


AL,0 


CURRENT CD PT BEING MATCHED 


06C3 








S16: 






06C3 


16 






PUSH 


SS 


ESTAB ADDRESSING TO STACK 


06C4 


IF 






POP 


DS 


FOR THE STRING COMPARE 


06C5 


BA 


0080 


MOV 


DX,128 


NUMBER TO TEST AGAINST 


06C8 








S17: 






06C8 


56 






PUSH 


SI 


SAVE SAVE AREA POINTER 


06C9 


57 






PUSH 


DI 


SAVE CODE POINTER 


06CA 


B9 


0008 


MOV 


CX,8 


NUMBER OF BYTES TO MATCH 


06CD 


F3, 


A6 




REPE 


CMPSB 


COMPARE THE 8 BYTES 


06CF 


5F 






POP 


DI 


RECOVER THE POINTERS 


06D0 


5E 






POP 


SI 




06D1 


74 


IE 




JZ 


S18 


IF ZERO FLAG SET, MATCH 


06D3 


FE 


CO 




INC 


AL 


NO MATCH, MOVE ON TO NEXT 


06D5 


83 


C7 


08 


ADD 


DI ,8 


NEXT CODE POINT 


06D8 


4A 






DEC 


DX 


LOOP CONTROL 


06D9 


75 


ED 




JNZ 


S17 


DO ALL OF THEM 








; 


- CHAR NOT MATCHED, MIGHT BE IN USEf 


* SUPPLIED SECOND HALF 


06DB 


3C 


00 




CMP 


AL,0 


AL <> IF 1ST HALF SCANNED 


06DD 


74 


12 




JE 


S18 


IF = 0, IF ALL SCANNED 


06DF 


2B 


CO 




SUB 


AX, AX 




06E1 


8E 


D8 




MOV 
ASSUME 


DS,AX 
DSrABSO 


ESTAB ADDRESSING TO VECTOR 


06E3 


C4 


3E 


007C R 


LES 


DI,EXT_PTR 


GET POINTER 


06E7 


8C 


CO 




MOV 


AX,ES 


SEE IF POINTER REALLY EXISTS 


06E9 


OB 


C7 




OR 


AX,DI 


IF ALL 0, THEN DOESN'T EXIST 


06EB 


74 


04 




JZ 


S18 


NO SENSE LOOKING 


06ED 


BO 


80 




MOV 


AL,128 


ORIGIN FOR SECOND HALF 


06EF 


EB 


D2 




JMP 
ASSUME 

■ CHARACTER IS 


S16 
DSrDATA 

FOUND ( AL=0 IF NOT 


GO BACK AND TRY FOR IT 
: OUND ) 


06F1 








S18: 






06F1 


83 


C4 


08 


ADD 


SP,8 


READJUST, THROW AWAY SAVE 



ROM BIOS 2-105 



0737 45 

0738 C3 
0739 



0739 
0739 
073C 
073C 
073D 
073F 
0741 
0745 
0747 
0749 
074B 
074D 
074E 
074F 



INC 
RET 
S23 ENDP 



BP 



; ADJUST POINTER 
; ALL DONE 



V4_P0SITI0N - S26 

THIS ROUTINE TAKES THE CURSOR POSITION 
CONTAINED IN THE MEMORY LOCATION, AND 
CONVERTS IT INTO AN OFFSET INTO THE 
REGEN BUFFER, ASSUMING ONE BYTE/CHAR. 
FOR MEDIUM RESOLUTION GRAPHICS, 
THE NUMBER MUST BE DOUBLED. 



ENTRY 



EXIT 



Al 0050 R 

53 

8B D8 

8A C4 

F6 26 004A R 

Dl EO 

Dl EO 

2A FF 

03 C3 

5B 

C3 



NO REGISTERS, MEMORY LOCATION 
CURSOR_POSN IS USED 



AX CONTAINS OFFSET INTO REGEN BUFFER 



S26 

MOV 
GRAPH_POSN 

PUSH 

MOV 

MOV 

MUL 

SHL 

SHL 

SUB 

ADD 

POP 

RET 
S26 



PROC NEAR 

AX,CURSOR_POSN 

LABEL NEAR 
BX 

BX,AX 
AL,AH 

BYTE PTR CRT_COLS 
AX,1 
AX,1 
BH,BH 
AX,BX 
BX 

ENDP 



GET CURRENT CURSOR 

SAVE REGISTER 

SAVE COPY OF CURRENT CURSOR 

GET ROWS TO AL 

MULTIPLY BY BYTES/COLUMN 

MTPLY * 4 SINCE 4 ROWS/BYTE 

ISOLATE COLUMN VALUE 
DETERMINE OFFSET 
RECOVER POINTER 
ALL DONE 



WRITE_TTY 



ENTRY 



EXIT 



THIS INTERFACE PROVIDES A TELETYPE LIKE INTERF TO VIDEO 
CARD. THE INPUT CHARACTER IS WRITTEN TO CURRENT CURSOR 
POSITION, AND THE CURSOR IS MOVED TO NEXT POSITION. IF 
CURSOR LEAVES THE LAST COLUMN OF THE FIELD, COLUMN IS SET 
TO ZERO, AND THE ROW VALUE IS INCREMENTED. IF ROW VALUE 
LEAVES THE FIELD, CURSOR IS PLACED ON LAST ROW, FIRST 
COLUMN, AND ENTIRE SCREEN IS SCROLLED UP ONE LINE. WHEN 
THE SCREEN IS SCROLLED UP, THE ATTRIBUTE FOR FILLING NEW 
BLANKED LINE IS READ FROM THE CURSOR POSITION ON PREVIOUS 
LINE BEFORE SCROLL, IN CHARACTER MODE. IN GRAPHICS MODE, 
THE COLOR IS USED. FOR BKSP, THE CURSOR COLUMN POSITION 
IS DECREMENTED BY 1. IF THE CURSOR COLUMN IS AND A BKSP 
OCCURS CURSOR COLUMN REMAINS 0. IT DOES NOT BACKSPACE TO 
THE PREVIOUS LINE. 

(AL) = CHARACTER TO BE WRITTEN 

NOTE: BACK SPACE, CR, BELL AND LINE FEED ARE HANDLED 
AS COMMANDS RATHER THAN AS DISPLAYABLE GRAPHICS 

(BL) = FOREGROUND COLOR FOR CHAR WRITE IF CURRENTLY IN A 
GRAPHICS MODE 

(DS) = DATA SEGMENT 

ALL REGISTERS SAVED 









ASSUME 


CS:ROMCODE,DS:DATA 




074F 






WRITE_TTY 


PROC NEAR 




074F 


50 




PUSH 


AX 


SAVE REGISTERS 


0750 


50 




PUSH 


AX 


SAVE CHAR TO WRITE 


0751 


B4 


03 


MOV 


AH,GET_CURSOR_INFO 


READ CURRENT CURSOR POSITION 


0753 


8A 


3E 0062 R 


MOV 


BH,ACTIVE_PAGE 


SET CURRENT ACTIVE PAGE 


0757 


CD 


10 


INT 


VIDEO_FN 


INT 10H 


0759 


58 




POP 


AX 


RECOVER CHAR 






; — 


- DX NOW HAS THE CURRENT CURSOR POS 


TION 


075A 


3C 


08 


CMP 


AL,8 


IS IT A BACKSPACE 


075C 


74 


52 


JE 


U8 


BACK-SPACE 


075E 


3C 


OD 


CMP 


AL,ODH 


IS IT CARRIAGE RETURN 


0760 


74 


57 


JE 


U9 


CAR_RET 


0762 


3C 


OA 


CMP 


AL,OAH 


IS IT A LINE FEED 



2-106 ROM BIOS 



0764 


74 


57 


JE 


U10 






, LINE_FEED 


0766 


3C 


07 


CMP 


AL,07H 






IS IT A BELL 


0768 


74 


5A 


JE 


Ull 






, BELL 






; 


WRITE THE 


CHAR TO THE SCREEN 




076A 


B4 


OA 


MOV 


AH,WRITE_CHAR_ONLY ; WRITE CHAR ONLY TO ACTIVE PG 


076C 


B9 


0001 


MOV 


CX,1 






, ONLY ONE CHARACTER 


076F 


CD 


10 


INT 


VIDEO.FN 






, INT 10H 






; 


POSITION THE CURSOR FOR NEXT 


CHAR 


0771 


FE 


C2 


INC 


DL 






0773 


3A 


16 004A R 


CMP 


DL.BYTE PTR 


CRT. 


.COLS ; TEST FOR COLUMN OVERFLOW 


0777 


75 


33 


JNZ 


U7 




; SET_CURSOR 


0779 


B2 


00 


MOV 


DL,0 




; COLUMN FOR CURSOR 


077B 


80 


FE 18 


CMP 


DH,24 






077E 


75 


2A 


JNZ 


U6 




; SET_CURSOR_INC 






; 


SCROLL REQUIRED 






0780 






Ul: 








0780 


B4 


02 


MOV 


AH,SET_CURSOR_POS ; SET THE CURSOR 


0782 


CD 


10 


INT 


VIDEO_FN 










; 


DETERMINE 


VALUE TO FILL WITH 


DURING SCROLL 


0784 


AO 


0049 R 


MOV 


AL,CRT_MODE 




; GET THE CURRENT MODE 


0787 


3C 


04 


CMP 


AL,4 






0789 


72 


06 


JC 


U2 




; READ-CURSOR 


078B 


3C 


07 


CMP 


AL,7 






078D 


B7 


00 


MOV 


BH,0 




; FILL WITH BACKGROUND 


078F 


75 


06 


JNE 


U3 




; SCROLL-UP 


0791 






U2: 






; READ-CURSOR 


0791 


B4 


08 


MOV 


AH,READ_ATT_ 


.CHAF 


; READ CHAR/ATTR AT CURSOR 


0793 


CD 


10 


INT 


VIDEO_FN 




; INT 10H 


0795 


8A 


FC 


MOV 


BH,AH 




; STORE IN BH 


0797 






U3: 






; SCROLL-UP 


0797 


B8 


0601 


MOV 


AX,SCROLL_WINDOIa 


_UP*256+01H ; SCROLL UP ONE LINE 


079A 


2B 


C9 


SUB 


CX,CX 




; UPPER LEFT CORNER 


079C 


B6 


18 


MOV 


DH,24 




; LOWER RIGHT ROW 


079E 


8A 


16 004A R 


MOV 


DL.BYTE PTR 


CRT_ 


.COLS ; LOWER RIGHT COLUMN 


07A2 


FE 


CA 


DEC 


DL 






07A4 






U4: 








VIDEO-CALL-RETURN 


07A4 


CD 


10 


INT 


VIDEO_FN 






PROCESS VIDEO FUNCTION 


07A6 






U5: 








TTY-RETURN 


07A6 


58 




POP 


AX 






RESTORE THE CHARACTER 


07A7 


E9 


016F R 


JMP 


VIDEO_RETURI\ 






RETURN TO CALLER 


07AA 






U6: 








SET-CURSOR-INC 


07AA 


FE 


C6 


INC 


DH 






NEXT ROW 


07AC 






U7: 








SET-CURSOR 


07AC 


B4 


02 


MOV 


AH,SET_CURSOR_POS 


SET CURSOR POSITION 


07AE 


EB 


F4 


JMP 


U4 






ESTABLISH THE NEW CURSOR 








BACK SPACE 


FOUND 










; BACK 


SPACE DOES 


NOT BACK SPACE 


TO 


PREVIOUS LINE IF AT BEG OF LINE 


07 BO 






U8: 








07 BO 


80 


FA 00 


CMP 


DL,0 






ALREADY AT BEGINNING OF LINE 


07B3 


74 


F7 


JE 


U7 






SET_CURSOR 


07B5 


FE 


CA 


DEC 


DL 






NO — JUST MOVE IT BACK 


07B7 


EB 


F3 


JMP 


U7 






SET_CURSOR 






; 


CARRIAGE RETURN FOUND 






07 B9 






U9: 








07 B9 


B2 


00 


MOV 


DL,0 




; MOVE TO FIRST COLUMN 


07BB 


EB 


EF 


JMP 
LINE FEED 


U7 
FOUND 




; SET_CURSOR 


07BD 






U10: 








07BD 


80 


FE 18 


CMP 


DH,24 






BOTTOM OF SCREEN 



ROM BIOS 2-107 



07C0 
07C2 



75 E8 
EB BC 



JNE 
JMP 



U6 
Ul 



YES, SCROLL THE SCREEN 
NO, JUST SET THE CURSOR 



BELL FOUND 



07C4 

07C4 B3 02 

07C6 E8 0000 E 

07C9 EB DB 

07CB 



Ull: 
MOV 
CALL 
JMP 

WRITE_TTY 



BL,2 
BEEP 
U5 



ENDP 



SET UP COUNT FOR BEEP 
SOUND THE POD BELL 
TTY_RETURN 



LIGHT PEN 



ON ENTRY 
ON EXIT 



THIS ROUTINE TESTS THE LIGHT PEN SWITCH AND THE LIGHT 
PEN TRIGGER. IF BOTH ARE SET, THE LOCATION OF THE LIGHT 
PEN IS DETERMINED. OTHERWISE, A RETURN WITH NO 
INFORMATION IS MADE. 

(DS) = DATA SEGMENT 

(AH) = IF NO LIGHT PEN INFORMATION IS AVAILABLE 

BX,CX,DX ARE DESTROYED 
(AH) = 1 IF LIGHT PEN IS AVAILABLE 

(DH,DL) = ROW, COLUMN OF CURRENT LIGHT PEN 
POSITION 

(CH) = RASTER POSITION 

(BX) = BEST GUESS AT PIXEL HORIZONTAL POSITION 



ASSUME CS:ROMCODE,DS:DATA 
--- SUBTRACT_TABLE 
07CB VI LABEL BYTE 

07CB 03 03 05 05 03 03 DB 3,3,5,5,3,3,3,4 

03 04 
07D3 READ_LPEN PROC NEAR 



07D3 


B4 


00 




- WAi 1 l-UK LI 

MOV 


bHI KtN IU Bt UtMKtbbtL 

AH,0 


J 
SET NO LIGHT PEN RETURN CODE 


07D5 


8B 


16 


0063 R 


MOV 


DX,ADDR_6845 


GET BASE ADDRESS OF 6845 


07D9 


83 


C2 


06 


ADD 


DX,6 


POINT TO STATUS REGISTER 


07DC 


EC 






IN 


AL,DX 


GET STATUS REGISTER 


07DD 


A8 


04 




TEST 


AL,LIGHT_PEN_SWITCH 


TEST LIGHT PEN SWITCH 


07DF 


75 


7E 




JNZ 


V6 


NOT SET, RETURN 








; — 


- NOW TEST FOR LIGHT PEN TRIGGER 




07E1 


A8 


02 




TEST 


AL,2 


TEST LIGHT PEN TRIGGER 


07E3 


75 


03 




JNZ 


V7A 


RETURN W/0 RESETTING TRIGGER 


07E5 


E9 


0869 R 


JMP 


V7 










; — 


- TRIGGER HAS 


BEEN SET, READ THE VALUE IN 


07E8 








V7A: 






07E8 


B4 


10 




MOV 


AH, 16 


LIGHT PEN REGISTERS ON 6845 










- INPUT REGS 


POINTED TO BY AH, AND CONVERT TO ROW COLUMN IN DX 


07EA 


8B 


16 


0063 R 


MOV 


DX,ADDR_6845 


ADDRESS REGISTER FOR 6845 


07EE 


8A 


C4 




MOV 


AL,AH 


REGISTER TO READ 


07 FO 


EE 






OUT 


DX,AL 


SET IT UP 


07F1 


42 






INC 


DX 


DATA REGISTER 


07F2 


EC 






IN 


AL,DX 


GET THE VALUE 


07F3 


8A 


E8 




MOV 


CH,AL 


SAVE IN CX 


07F5 


4A 






DEC 


DX 


ADDRESS REGISTER 


07F6 


FE 


C4 




INC 


AH 




07F8 


8A 


C4 




MOV 


AL,AH 


SECOND DATA REGISTER 


07 FA 


EE 






OUT 


DX,AL 




07FB 


42 






INC 


DX 


POINT TO DATA REGISTER 


07FC 


EC 






IN 


AL,DX 


GET SECOND DATA VALUE 


07FD 


8A 


E5 




MOV 
- AX HAS THE 


AH,CH 
VALUE READ IN FROM THE 


AX HAS INPUT VALUE 
6845 



2-108 ROM BIOS 



07FF 


8A 


IE 


0049 R 


MOV 


BL,CRT_MODE 




0803 


2A 


FF 




SUB 


BH,BH 




MODE VALUE TO BX 


0805 


2E 


8/> 


9F 07CB 


} MOV 


BL,CS:V1[BX] 


DETERMINE AMOUNT TO SUBTRACT 


080A 


2B 


C3 




SUB 


AX,BX 




TAKE IT AWAY 


080C 


8B 


IE 


004E R 


MOV 


BX,CRT_START 




0810 


Dl 


EB 




SHR 


BX,1 






0812 


2B 


C3 




SUB 


AX,BX 






0814 


79 


02 




JNS 


V2 




IF POSITIVE, DETERMINE MODE 


0816 


2B 


CO 




SUB 


AX, AX 




<0 PLAYS AS 








; 


DETERMINE 


MODE OF OPERATION 




0818 








V2: 






DETERMINE_MODE 


0818 


Bl 


03 




MOV 


CL,3 




SET *8 SHIFT COUNT 


081A 


80 


3E 


0049 R 04 


CMP 


CRT_MODE 


,4 


DETERMINE IF GRAPHICS OR ALPHA 


081F 


72 


2A 




JB 


V4 




ALPHA_PEN 


0821 


80 


3E 


0049 R 07 


CMP 


CRT_MODE 


,7 




0826 


74 


23 




JE 


V4 




ALPHA_PEN 








; 


GRAPHICS MODE 






0828 


B2 


28 




MOV 


DL,40 




DIVISOR FOR GRAPHICS 


082A 


F6 


F2 




DIV 
DETERMINE 


DL 
GRAPHIC ROW 


POSITION 


DETERMINE ROW(AL) AND COLUMN(AH) 
AL RANGE 0-99, AH RANGE 0-39 


082C 


8A 


E8 




MOV 


CH,AL 




SAVE ROW VALUE IN CH 


082E 


02 


ED 




ADD 


CH,CH 




*2 FOR EVEN/ODD FIELD 


0830 


8A 


DC 




MOV 


BL,AH 




COLUMN VALUE TO BX 


0832 


2A 


FF 




SUB 


BH,BH 




MULTIPLY BY 8 FOR MEDIUM RES 


0834 


80 


3E 


0049 R 06 


CMP 


CRT_MODE 


,6 


DETERMINE MEDIUM OR HIGH RES 


0839 


75 


04 




JNE 


V3 




NOT_HIGH_RES 


083B 


Bl 


04 




MOV 


CL,4 




SHIFT VALUE FOR HIGH RES 


083D 


DO 


E4 




SAL 


AH,1 




COL VAL TIMES 2 FOR HIGH RES 


083 F 








V3: 






NOT_HIGH_RES 


083 F 


D3 


E3 




SHL 
DETERMINE 


BX,CL 
ALPHA CHAR 


POSITION 


MULTIPLY *16 FOR HIGH RES 


0841 


8A 


D4 




MOV 


DL.AH 




COLUMN VALUE FOR RETURN 


0843 


8A 


FO 




MOV 


DH,AL 




ROW VALUE 


0845 


DO 


EE 




SHR 


DH,1 




DIVIDE BY 4 


0847 


DO 


EE 




SHR 


DH,1 




FOR VALUE IN 0-24 RANGE 


0849 


EB 


12 




JMP 


SHORT V5 




LIGHT_PEN_RETURN_SET 








; 


ALPHA MODE ON LIGHT PEN 




084B 








V4: 






ALPHA_PEN 


084B 


F6 


36 


004A R 


DIV 


BYTE PTR 


CRT_COLS 


DETERMINE ROW, COLUMN VALUE 


084F 


8A 


FO 




MOV 


DH,AL 




ROWS TO DH 


0851 


8A 


D4 




MOV 


DL,AH 




COLS TO DL 


0853 


D2 


EO 




SAL 


AL.CL 




MULTIPLY ROWS * 8 


0855 


8A 


E8 




MOV 


CH,AL 




GET RASTER VAL TO RETURN REG 


0857 


8A 


DC 




MOV 


BL,AH 




COLUMN VALUE 


0859 


32 


FF 




XOR 


BH,BH 




TO BX 


085B 


D3 


E3 




SAL 


BX,CL 






085D 








V5: 






, LIGHT_PEN_RETURN_SET 


085D 


B4 


01 




MOV 


AH,1 




INDICATE EVERTHING SET 


085F 








V6: 






LIGHT_PEN_RETURN 


085F 


52 






PUSH 


DX 




SAVE RETURN VALUE (IN CASE) 


0860 


8B 


16 


0063 R 


MOV 


DX,ADDR_ 


6845 


GET BASE ADDRESS 


0864 


83 


C2 


07 


ADD 


DX,7 




POINT TO RESET PARM 


0867 


EE 






OUT 


DX,AL 




ADDR, NOT DATA, IS IMPORTANT 


0868 


5A 






POP 


DX 




RECOVER VALUE 


0869 








V7: 






, RETURN_NO_RESET 


0869 


55 






PUSH 


BP 






086A 


8B 


EC 




MOV 


BP,SP 




GET PTR TO STACK SAVE AREA 


086C 


89 


5E 


08 


MOV 


[BP].BX_ 


POS,BX 


SETUP RETURN VALUES IN STACK 


086F 


89 


4E 


OA 


MOV 


[BP].CX_ 


POS,CX 


SAVE AREA 


0872 


89 


56 


OC 


MOV 


[BP].DX_ 


POS,DX 




0875 


5D 






POP 


BP 






0876 


E9 


016F R 


JMP 


VIDEO_RETURN 




0879 








READJ.PEN ENDP 





ROM BIOS 2-109 



WRITE_STRING 

THIS ROUTINE WRITES A STRING OF CHARACTERS TO THE CRT. 
INPUT 









(AL) = 


WRITE STRING COMMAND 


- 3 








(BH) = 


DISPLAY PAGE 










(BL) = 


ATTRIBUTE OF CHAR TO 


WRITE IF AL == OR AL == 1 








(CX) = 


COUNT OF CHARACTERS TO WRITE, IF CX=0 THEN RETURN 








(DX) = 


CURSOR POSITION FOR STRING TO BE WRITTEN 








ROW 


= (0-24), COL = (0-(CRT COLUMNS-1)) 








CRT 


COLUMN SIZE IS EITHER 


80 OR 40 








(ES) = 


STRING SEGMENT 










(BP) = 


STRING OFFSET 










(DS) = 


DATA SEGMENT 








OUTPUT 












N/A 






0879 




WRITE_STRING PROC NEAR 




0879 


55 




PUSH 


BP 




087A 


8B EC 




MOV 


BP,SP 




087C 


8E 46 10 




MOV 


ES,[BP].ES_POS ; 


RECOVER STRING SEG ADDRESS 


087F 


5D 




POP 


BP 




0880 


3C 04 




CMP 


AL,04 ; 


TEST FOR INVAL STRING OPTION 


0882 


72 03 




JB 


WO ; 


IF OPTION INVAL THEN RETURN 


0884 


E9 0924 R 




JMP 


DONE 




0887 


OB C9 




WO: OR 


CX,CX ; 


TEST FOR LENGTH STRING 


0889 


75 03 




JNZ 


Wl 




088B 


E9 0924 R 




JMP 


DONE ; 


IF LENGTH STRING, RETURN 


088E 


53 




Wl: PUSH BX ; 


SAVE PAGE AND POSSIBLE ATTR 


088F 


8A DF 




MOV 


BL,BH ; 


GET CURRENT CURSOR POSITION 


0891 


32 FF 




XOR 


BH,BH 




0893 


Dl E3 




SAL 


BX,1 




0895 


8B B7 005( 


) R 


MOV 


SI,[BX+OFFSET CURSOR_POSN] 


0899 


5B 




POP 


BX ; 


RESTORE BX 


089A 


56 




PUSH 


SI ; 


SAVE CURRENT CURSOR POSITION 


089B 


50 




PUSH 


AX 


SAVE WRITE STRING OPTION 


089C 


B4 02 




MOV 


AH,SET_CURSOR_POS 


SET NEW CURSOR POSITION 


089 E 


CD 10 




INT 


VIDEO_FN 




08A0 


58 




POP 


AX 


RESTORE WRITE STRING OPTION 


08A1 






WRITE.CHAR 






08A1 


51 




PUSH 


CX 




08A2 


53 




PUSH 


BX 




08A3 


50 




PUSH 


AX 




08A4 


06 




PUSH 


ES 




08A5 


86 EO 




XCHG 


AH,AL 


PUT WRT STRING OPTION IN AH 


08A7 


26: 8A 46 


00 


MOV 


AL,ES:[BP] 


GET CHAR FROM INPUT STRING 


08AB 


45 




INC 


BP 


BUMP POINTER TO CHARACTER 








- TEST FOR SPECIAL CHARACTER'S 




08AC 


3C 08 




CMP 


AL,8 


IS IT A BACKSPACE 


08AE 


74 OC 




JE 


DO_TTY 


BACK_SPACE 


08B0 


3C OD 




CMP 


AL,ODH 


IS IT CARRIAGE RETURN 


08B2 


74 08 




JE 


DO_TTY 


CAR_RET 


08B4 


3C OA 




CMP 


AL,OAH 


IS IT A LINE FEED 


08B6 


74 04 




JE 


DO_TTY 


LINE_FEED 


08 B8 


3C 07 




CMP 


AL,07H 


IS IT A BELL 


08 BA 


75 1C 




JNE 


GET_ATTRIBUTE 


IF NOT THEN DO WRITE CHAR 


08BC 






DO_TTY : 







2-110 ROM BIOS 



WRITE_TTY IS CALLED TO PROCESS THE SPECIAL CHAR. WRITE_TTY WRTS 
TO THE CURRENT ACTIVE PAGE DEFINED BY GLOBAL VAR ACTIVE_PAGE. 
WRITE.STRING WRITES TO THE PAGE DEFINED BY USER IN BH REGISTER. 
THE ACTIVE_PAGE VARIABLE MAY NOT BE SAME PG AS DEFINED BY USER 
IN BH REGISTER. THE ACTIVE_PAGE VAR MUST BE TEMP SET TO 
BH REGISTER BEFORE CALLING WRITE_TTY. AND, BOTH ACTIVE-PAGE AND 
BH REGISTER MUST BE RESTORED AFTER. 



08FE 
08FF 
0903 
0906 
0908 
090C 
090E 
090F 
090F 
090F 
0910 
0912 
0914 
0915 



08BC 


86 


3E 


0062 


R 


XCHG 


ACTIVE_PAGE 


BH 


TEMPORARILY EXCHANGE VALUES 


08C0 


B4 


OE 






MOV 


AH,WRITE_TELETYPE 


WRITE TTY CHAR TO THE ACT PG 


08C2 


CD 


10 






INT 


VIDEO_FN 




INT 10H 


08C4 


86 


3E 


0062 


R 


XCHG 


ACTIVE_PAGE 


BH 


RESOTRE VALUES 


08C8 


8A 


DF 






MOV 


BL,BH 




GET CURRENT CURSOR POSITION 


08CA 


32 


FF 






XOR 


BH,BH 






08CC 


Dl 


E3 






SAL 


BX,1 




INTO THE DX REGISTER 


08CE 


8B 


97 


0050 


R 


MOV 


DX,[BX+OFFSET CURSOR_POSN] 


08D2 


07 








POP 


ES 






08D3 


58 








POP 


AX 




RESTORE REGISTERS 


08D4 


5B 








POP 


BX 






08D5 


59 








POP 


CX 






08D6 


EB 


37 






JMP 


SHORT ROWS.SET 




08D8 










GET_ATTRIBUTE: 






08D8 


B9 


0001 




MOV 


CX,1 




SET CHAR WRITE AMOUNT TO ONE 


08DB 


80 


FC 


02 




CMP 


AH, 2 




IS ATTRIBUTE IN THE STRING 


08DE 


72 


05 






JB 


GOT_IT 




IF NOT THEN JUMP 


08E0 


26 


8/i 


5E 00 


MOV 


BL,ES:[BP] 




ELSE GET IT 


08E4 


45 








INC 


BP 




BUMP STRING POINTER 


08E5 










GOT_IT: 








08E5 


B4 


09 






MOV 


AH,WRITE_AT1 


_CHAR 


WRITE CHAR AND ATTRIBUTE 


08E7 


CD 


10 






INT 


VIDEO_FN 






08E9 


07 








POP 


ES 






08EA 


58 








POP 


AX 




RESTORE REGISTERS 


08EB 


5B 








POP 


BX 






08EC 


59 








POP 


CX 






08ED 


FE 


C2 






INC 


DL 




INCREMENT COLUMN COUNTER 


08EF 


3A 


16 


004A 


R 


CMP 


DL,BYTE PTR 


CRT_COLS 


; .IF COLS ARE IN RANGE FOR 
THIS MODE THEN 


08 F3 


72 


1A 






JB 


COLUMNS_SET 




GOTO COLS SET 


08F5 


FE 


C6 






INC 


DH 




BUMP ROW COUNTER BY ONE 


08F7 


2A 


D2 






SUB 


DL,DL 




SET COLUMN COUNTER TO ZERO 


08F9 


80 


FE 


19 




CMP 


DH,25 




IF ROWS ARE < 25 THEN 


08FC 


72 


11 






JB 


ROWS_SET 




GOTO ROWS_SET 



WRITE_TTY IS CALLED TO PROCESS SCROLL LINE CMD. WRITE_TTY WRITES 
TO THE CURRENT ACTIVE PAGE DEFINED BY GLOBAL VARIABLE ACTIVE_PAGE. 
WRITE_STRING WRITES TO THE PAGE DEFINED BY USER IN BH REGISTER. 
THE ACTIVE_PAGE VARIABLE MAY NOT BE THE SAME PAGE DEFINED BY USER 
IN BH REGISTER. ACTIVE_PAGE VARIABLE MUST BE TEMPORARILY SET TO 
BH REGISTER BEFORE CALLING WRITE_TTY. AND, BOTH ACTIVE-PAGE AND 
BH REGISTER MUST BE RESTORED AFTER. 



50 

86 3E 0062 R 

B8 OEOA 

CD 10 

86 3E 0062 R 

FE CE 

58 



50 

B4 02 
CD 10 
58 
E2 8A 



PUSH 

XCHG 

MOV 

INT 

XCHG 

DEC 

POP 
ROWS_SET: 
COLUMNS_SET 

PUSH 

MOV 

INT 

POP 

LOOP 



AX ; SAVE WRITE STRING PARM REGS 

ACTIVE_PAGE,BH ; TEMPORARILY EXCHANGE VALUES 
AX,WRITE_TELETYPE*256+0AH ; SCROLL 1 LINE 



VIDEO.FN 

ACTIVE_PAGE,BH 

DH 

AX 



AX 

AH,SET_CURSOR_POS 

VIDEO_FN 

AX 

WRITE_CHAR 



FEED COMMAND TO WRITE TTY 
RESTORE TO ORIG VALUES 
RESET ROW COUNTER TO 24 
RESTORE REG'S 



SAVE WRITE STRING OPTION 
SET NEW CURSOR POSITION 
AND RESTORES VIDEO PAGE 

DO IT UNTIL CX = ZERO 



FN 



0917 5A 

0918 3C 01 
091A 74 08 
091C 3C 03 



POP 
CMP 
JE 
CMP 



DX 

AL,1 
DONE 
AL,3 



RESTORE OLD CURSOR COORDIN 
IF CURSOR WAS TO BE MOVED 
WE'RE DONE 



ROM BIOS 2-111 



091E 
0920 
0922 


74 04 
B4 02 
CD 10 


0924 


E9 016F R 



JE DONE 

MOV AH,SET_CURSOR_POS 

INT VIDEO_FN 
DONE: 

JMP VIDEO_RETURN 



; ELSE RESTORE OLD CURSOR POS 
; RETURN TO CALLER 



0927 



WRITE_STRING 



ENDP 



LCD_REQUEST 



OUTPUT 



THESE ROUTINES PERFORM FUNCTIONS SPECIFIC TO THE LCD 
CONTROLLER. 

AL - LCD REQUEST NUMBER 

= LOAD USER SPECIFIED FONT 

1 = LOAD SYSTEM ROM DEFAULT FONT 

2 = SET LCD HIGH INTENSITY ATTRIBUTE MAPPING 

3 - 255 = NO OPERATION 
(DS) = DATA SEGMENT 

ADDITIONAL INPUTS ARE REQUIRED FOR EACH REQUEST 

LCD MUST BE PRESENT. IF NOT, NO OPERATION IS PERFORMED 



LCD SPECIFIC FUNCTION WILL BE PERFORMED IF A LCD 
IS PRESENT 



0927 




LCD_REQUEST PROC NEAR 


0927 


50 


PUSH 


AX 


0928 


B4 20 


MOV 


AH,RTC_DSP_CON 


092A 


E8 0000 E 


CALL 


GET_RTC_REG 


092D 


A8 03 


TEST 


AL,DSP_CLCD+DSP_MLCD 


092F 


58 


POP 


AX 






JFZ 


VIDEO_RETURN 


0930 


75 03 


JNZ 


$+5 


0932 


E9 016F R 


JMP 


VIDEO_RETURN 


0935 


3C 00 


CMP 


AL,0 


0937 


75 5A 


JNE 


DEFONT 



SAVE LCD_REQUEST 

GET DISPLAY CONFIGURATION 

RESTORE LCD REQUEST 
LCD IS NOT AVAILABLE - EXIT 
IF NOT ZERO JUMP AROUND JUMP 
ELSE TAKE A LONG JUMP 

IF LOAD USER FONT REQUEST 



LOAD_USER_FONT 

THIS ROUTINE ACCESSES THE LCD FONT STORAGE AND ALTERS 
ONE OR MORE CHARACTERS, ALLOWING THE USER TO CAUSE DIFF- 
ERENT CHARACTERS TO BE DISPLAYED IN ALPHA/NUMERIC MODE 
INPUT 

ES:DI - POINT TO CHARACTER FONT IN USER TABLE WHERE 
LOADING IS TO START FROM 

CX - NUMBER OF CHARACTERS TO STORE (1-256) VALUE CHECKED 
DL - CHAR OFFSET INTO RAM FONT AREA 

BH - NUMBER OF BYTES PER CHARACTER (1-255) VALUE CHECKED 
BL - = LOAD MAIN FONT (BLOCK 0) 

1 = LOAD ALTERNATE FONT (BLOCK 1) 
2-255 = NO OPERATION 



OUTPUT 



THE USER SPECIFIED FONT IS LOADED 

ALTERED CHARACTERS WILL DISPLAY DIFFERENTLY IN A/N MODE 



INTERRUPTS: 



DISABLED DURING THE LOADING OF THE FONT 



0939 
093B 


B4 
E8 


20 
0000 E 


MOV 
CALL 


AH,RTC_DSP_CON 
GET_RTC_REG 


093E 
0940 
0943 
0945 


A8 
B8 
75 
B8 


01 

B800 
03 
BOOO 


TEST 
MOV 
JNZ 
MOV 


AL,DSP_CLCD 
AX , CGA_RAM 
LCD1 
AX,MONO_RAM 


0948 
0948 


8E 


CO 


LCD1: 
MOV 


ES,AX 


094A 
094C 
094E 


OA 
74 
8A 


FF 
43 
C7 


OR 
JZ 
MOV 


BH,BH 

LCD3 

AL,BH 



GET DISPLAY CONFIGURATION 



USE CGA REGEN ADDRESS 

IS LCD CONFIGURED AS CGA ? 

NO, USE MONO REGEN ADDRESS 

LCD REGEN ADDR IS FONT SEG 
DEST SEG FOR FONT MOVE 

IS # OF BYTES PER CHAR > 
NO, IT IS THEN END 
BYTES PER CHARACTER TIMES 



2-112 ROM BIOS 



0950 


F6 


E2 




MUL 


DL 


0952 


8B 


F8 




MOV 


DI,AX 


0954 


80 


FB 


00 


CMP 


BL,0 


0957 


74 


09 




JE 


LCD2 


0959 


80 


FB 


01 


CMP 


BL,1 


095C 


75 


33 




JNE 


LCD3 


095E 


81 


C7 


1000 


ADD 


DI.1000H 


0962 








LCD2: 




0962 


55 






PUSH 


BP 


0963 


8B 


EC 




MOV 


BP,SP 


0965 


8E 


5E 


10 


MOV 


DS,[BP].ES_P0S 


0968 


8B 


76 


04 


MOV 


SI,[BP].DI_POS 


096B 


5D 






POP 


BP 


096C 


OB 


C9 




OR 


CX,CX 


096E 


74 


21 




JZ 


LCD3 


0970 


81 


F9 


0100 


CMP 


CX,256 


0974 


77 


IB 




JA 


LCD3 


0976 


8A 


C7 




MOV 


AL,BH 


0978 


2A 


E4 




SUB 


AH, AH 


097A 


F7 


El 




MUL 


CX 


097C 


8B 


C8 




MOV 


CX,AX 


097E 


9C 






PUSHF 




097E 


FA 






CLI 




0980 


BO 


00 




MOV 


AL,LCD_FUNCT 


0982 


E6 


74 




OUT 


LCD_INDX,AL 


0984 


E4 


75 




IN 


AL,LCD_DATA 


0986 


OC 


10 




OR 


AL,LCD_F0NT 


0988 


E6 


75 




OUT 


LCD_DATA,AL 


098A 


F3/ 


A4 




REP 


MOVSB 


098C 


24 


EF 




AND 


AL,0FFH-LCD_F0NT 


098E 


E6 


75 




OUT 


LCD_DATA,AL 


0990 


9D 






POPF 




0991 








LCD3: 




0991 


EB 


50 




JMP 


SHORT LCDXIT 


0993 








DEFONT: 




0993 


3C 


01 




CMP 


AL,1 


0995 


75 


ID 




JNE 


INTENS 



CHARACTER OFFSET EQUALS 
DESTINATION INDEX 

REQUEST TO LOAD MAIN FONT 
YES, JUMP TO LOAD 
REQUEST TO LOAD ALT FONT 
NO, JUMP TO END 
YES ADJ DEST. IX ALT FONT 



RECOVER ES & DI VAL FROM STK 
SOURCE SEGMENT FOR FONT MOVE 
SET UP SOURCE IX FOR MOVE 



IS # OF CHARS TO STORE > 
NO, IT IS THEN EXIT 
MAX CHARS ALLOWED IS 256 
IF > 256 THEN EXIT 

BYTES PER CHARACTER TIMES 

NUMBER OF CHARS TO STORE = 
NUMBER OF BYTES TO STORE 



ACCESS LCD FN CONTROL REG 

ACCESS DISPLAY FONT STORAGE 
MOVE THE FONT 

RETURN FROM FONT TO REGEN 

END LOAD USER SPECIFIED FONT 

IF LOAD DEFAULT FONT REQUEST 



LOAD_DEFAULT_FONT 



INPUT 



THIS ROUTINE CAUSES THE LCD FONT STORAGE TO BE REINIT- 
IALIZED WITH THE SYSTEM ROM DEFAULT FONT 

BL - = LOAD MAIN FONT (BLOCK 0) 

1 = LOAD ALTERNATE FONT (BLOCK 1) 

2 - 255 = NO OPERATION 

DEFAULT CHARACTERS WILL BE DISPLAYED IN A/N MODE 



0997 


OE 


0998 


07 


0999 


B9 0080 


099C 


B7 08 


099E 


B8 1400 


09A1 


BF 0000 


09A4 


B2 00 


09A6 


CD 10 


09A8 


B8 1400 


09AB 


BF 0000 


09AE 


B2 80 


09B0 


CD 10 


09B2 


EB 2F 


09 B4 




09B4 


3C 02 


09 B6 


75 2B 



PUSH 
POP 
MOV 
MOV 
MOV 
MOV 
MOV 
INT 
MOV 
MOV 
MOV 
INT 
JMP 
INTENS: 
CMP 
JNE 



CS ; PREPARE TO ISSUE LOAD 

ES ; USER FONT = DEFLT BIOS FONT 

CX,128 ; NO. OF CHARS TO WRITE = 128 

BH,8 ; 8 BYTES PER CHAR 

AX,256*LCD_REQ+L0AD_USER ; SETUP LD USR FONT REQ 
DI, OFFSET CHAR_GEN_LO ; LOAD LOWER 128 CHARS 
DL,0 ; CHAR OFFSET IN FONT STORAGE 

VIDEO_FN ; IRPT TO VIDEO I/O TO LD FONT 

AX,256*LCD_REQ+L0AD_USER ; SETUP LD USER FONT REQ 
DI, OFFSET CHAR_GEN_HI ; LOAD UPPER 128 CHARACTERS 
DL,128 ; CHAR OFFSET IN FONT STORAGE 

VIDEO_FN ; IRPT TO VIDEO I/O TO LD FONT 

SHORT LCDXIT 



AL,2 
LCDXIT 



SET HIGH INTEN MAP REQUEST 



ROM BIOS 2-113 



SET_HIGH_INTENSITY_MAPPING 

THIS ROUTINE MAPS THE LCD HIGH INTENSITY ATTRIBUTE. 
THIS ROUTINE ACCESSES THE LCD INTENSIFY REGISTER AND 
CAUSES CHARACTERS WITH THE INTENSIFIED ATTRIBUTE TO 
BE DISPLAYED DIFFERENTLY 



INPUT 



BL - INTENSIFY MAPPING INPUT REGISTER 











= IGNORE HIGH INTENSITY ATTRIBUTE 










1 = MAP INTENSITY 


TO 


UNDERSCORE 










2 = MAP INTENSITY 


TO 


REVERSE IMAGE 










3 = MAP INTENSITY 


TO 


SELECT ALTERNATE FONT 










4 - 255 = NO OPERATION 








OUTPUT 














INTENSIFIED CHARACTERS 


WILL DISPLAY DIFFERENTLY 








INTERRUPTS: 










80 


FB 04 


DISABLED DURING PROCESSING 


09 B8 


CMP 


BL,04H 




; ONLY OPERATION 0-3 ALLOWED 


09BB 


73 


26 


JAE 


LCDXIT 




; ALL OTHERS EXIT 


09BD 


BA 


03 B4 


MOV 


DX,3B4H 






09C0 


B4 


20 


MOV 


AH,RTC_DSP_C0N 






09C2 


E8 


0000 E 


CALL 


GET_RTC_REG 






09C5 


A8 


01 


TEST 


AL,DSP_CLCD 




; GET LCD CTRL PORT ADDRESSES 


09C7 


74 


02 


JZ 


LCD4 




; IF EMULATING MONO = 3B4 


09C9 


B2 


D4 


MOV 


DL,0D4H 




; IF EMULATING COLOR = 3D4 


09CB 






LCD4: 








09CB 


9C 




PUSHF 






09CC 


FA 




CLI 








09CD 


BO 


14 


MOV 


AL,14H 






09CF 


EE 




OUT 


DX,AL 




; REQUEST TO WRT TO REG 20 


09D0 


BO 


77 


MOV 


AL,77H 




; FOREGND RGB ON, BKGND RGB ON 


09D2 


F6 


C3 02 


TEST 


BL,02H 






09D5 


74 


02 


JZ 


LCD5 






09D7 


OC 


80 


OR 


AL,80H 




; SET UP H ORDER BIT OF INTEN 


09D9 


F6 


C3 01 


LCD5: 


TEST BL.01H 






09DC 


74 


02 


JZ 


LCD6 






09DE 


OC 


08 


OR 


AL,8 




; SET UP L ORDER BIT OF INTEN 


09 EO 


42 




LCD6: 


INC DX 






09E1 


EE 




OUT 


DX,AL 




; WRT INTENSIFY DATA TO REG 20 


09E2 


9D 




POPF 








09E3 


E9 


016F R 


LCDXIT: 


JMP VIDEO_RETURN 





09E6 



LCD_REQUEST 



ENDP 



PHYS_DSP._DESCR_REQ 

THIS ROUTINE RETURNS THE ADDRESS OF A 7 WORD TABLE 
CONTAINING THE PHYSICAL DISPLAY DESCRIPTION PARAMETERS OF 
CURRENT DISPLAY. IT ALSO RETURNS THE MONITOR NUMBER OF 
ALTERNATE OPERATIONAL DISPLAY. 
THE TABLE CONTAINS THE FOLLOWING: 



WORD INFORMATION 

1 MONITOR MODEL NUMBER (5140,5153,5151) 

2 NUMBER OF VERTICAL PELS / METER 

3 NUMBER OF HORIZONTAL PELS / METER 

4 TOTAL NUMBER OF VERTICAL PELS 

5 TOTAL NUMBER OF HORIZONTAL PELS 

6 HORIZONTAL PEL SPACING IN MICROMETERS 
(CENTER TO CENTER) 

7 VERTICAL PEL SPACING IN MICROMETERS 
(CENTER TO CENTER) 

NONE 

ES:DI - POINTER TO DISPLAY DESCRIPTION TABLE 
AX - CONTAINS THE MONITOR NUMBER OF THE ALTERNATE 
OPERATIONAL DISPLAY. IF THERE IS NO ALTERNATE 
DISPLAY OR ITS INOPERABLE, AX = 



INPUT 



OUTPUT 



09E6 



PHYS_DSP_DESCR_REQ PROC NEAR 



2-114 ROM BIOS 



; FIGURED OUT WHAT DISPLAY IS CURRENTLY ACTIVE 



09E6 


B4 20 




MOV 


AH,RTC_DSP_CON 




09 E8 


E8 0000 E 




CALL 


GET_RTC_REG 


; GET DISPLAY CONFIGURATION 


09EB 


8A D8 




MOV 


BL,AL 


; SAVE DISPLAY CONFIG 


09ED 


OE 




PUSH 


CS 




09EE 


07 




POP 


ES 


; ES = CS 


09EF 


81 3E 0063 


R 03D4 


CMP 


ADDR_6845,03D4H 


; IS CGA CURRENT MODE? 


09F5 


75 14 




JNE 


PHYS_M0N0 


; NO, JUMP TO MONO TEST 



COLOR IS CURRENT MODE. SEE IF COLOR DISPLAY OR LCD CONFIG AS COLOR 
IS THE CURRENT DISPLAY. SET ES:DI TO POINT TO TBL OF CRNT DSPLY. 
ALSO TURN OFF CURRENT DISPLAY BIT IN THE DISPLAY CONFIG BYTE. 



09 F7 


A8 01 


09 F9 


74 08 


09FB 


BF 0000 E 


09FE 


80 E3 7E 


0A01 


EB 1A 


0A03 




0A03 


BF 0000 E 


0A06 


80 E3 FB 


0A09 


EB 12 



TEST 
JZ 
MOV 
AND 
JMP 
PHYS.CGAl: 
MOV 
AND 
JMP 



AL,DSP_CLCD ; IS LCD CONFIGURED AS CGA? 
PHYS_CGA1 ; NO, JUMP TO COLOR DISPLAY 

DI, OFFSET LCD_CGA_TBL ; SET ADDR TO LCD AS CGA TBL 
BL,NOT DSP_CLCD+DSP_LCD_PRES ; TURN OFF LCD BITS 



SHORT PHYS_ALT 

DI, OFFSET CGA_TBL 
BL,NOT DSP_CGA 
SHORT PHYS_ALT 



YES, JUMP TO TEST ALT DSPLY 
CURRENT DSPLY IS COLOR DSPLY 
SET ADDRESS TO CGA TABLE 
TURN OFF CURRENT DISPLAY BIT 
YES, JUMP TO TEST ALT DSPLY 



MONO IS CURRENT MODE. SEE IF MONOCHROME DSPLY OR LCD CONFIG AS MONO 
IS CURRENT DISPLAY. SET ES:DI TO POINT TO TABLE OF CURRENT DISPLAY. 
ALSO TURN OFF CURRENT DISPLAY BIT IN THE DISPLAY CONFIG BYTE. 



OAOB 




OAOB 


A8 02 


OAOD 


74 08 


OAOF 


BF 0000 E 


0A12 


80 E3 7D 


0A15 


EB 06 


0A17 




0A17 


BF 0000 E 


0A1A 


80 E3 F7 



PHYS_MONO: 

TEST 

JZ 

MOV 

AND 

JMP 
PHYS_M0N01: 

MOV 

AND 



AL,DSP_MLCD ; IS LCD CONFIGURED AS MONO? 
PHYS_M0N01 ; NO, JUMP TO COLOR DISPLAY 
DI, OFFSET LCD_MONO_TBL ; DEFAULT TO LCD MONO TABLE 
BL,NOT DSP_MLCD+DSP_LCD_PRES ; TURN OFF LCD BITS 



SHORT PHYS.ALT 

DI, OFFSET MONO_TBL 
BL,NOT DSP_MONO 



YES, JUMP TO TEST ALT DSPLY 
CURRENT DSPLY MONO MONITOR 
NO, CURRENT DSPLY MONO MNTR 
TURN OFF CURRENT DISPLAY BIT 



TEST FOR THE ALTERNATE DISPLAY AND SET AX TO THE MONITOR NUMBER OF 
ALTERNATE DISPLAY. BL SHOULD CONTAIN THE ALTERNATE DISPLAY CONFIG. 
IF THERE IS NO ALTERNATE DISPLAY OR THE ALTERNATE IS INOPERATIVE 
THE MONITOR NUMBER IS 0. 



0A1D 




PHYS_ALT: 




TEST FOR ALTERNATE DISPLAY 


0A1D 


84 DB 


TEST 


BL,BL 


ANY ALTERNATE DSPS PRESENT? 


0A1F 


74 2E 


JZ 


PHYS_ALT_NONE 


NO, JUMP TO SET MNTR # TO 


0A21 


F6 C3 03 


TEST 


BL,DSP_CLCD+DSP_MLCD 


; IS ALT MONITOR THE LCD 


0A24 


74 06 


JZ 


PHYS_ALT1 


NO, JUMP TO CHECK OTHER DSPL 


0A26 


2E: Al 0000 E 


MOV 


AX,LCD_CGA_TBL[0] 


YES, SET LCD MONITOR # 


0A2A 


EB 25 


JMP 


SHORT PHYS_END 


JUMP TO EXIT 


0A2C 




PHYS_ALT1 




TEST FOR THE COLOR DISPLAY 


0A2C 


B4 22 


MOV 


AH,RTC_DSP_STAT 


GET THE DISPLAY STATUS 


0A2E 


E8 0000 E 


CALL 


GET_RTC_REG 




0A31 


F6 C3 04 


TEST 


BL,DSP_CGA 


IS ALT DSP COLOR MONITOR? 


0A34 


74 OA 


JZ 


PHYS_ALT2 


JUMP TO TEST MONO MONITOR 


0A36 


A8 02 


TEST 


AL,CGA_BAD 


IS THE CGA BAD? 


0A38 


75 15 


JNZ 


PHYS_ALT_NONE 


YES, SET FOR NO ALTERNATE 


0A3A 


2E: Al 0000 E 


MOV 


AX,CGA_TBL[0] 


NO, SET CGA MONITOR # 


0A3E 


EB 11 


JMP 


SHORT PHYS_END 


JUMP TO EXIT 


0A40 




PHYS.ALT2 




TEST FOR MONOCHROME MONITOR 


0A40 


F6 C3 08 


TEST 


BL,DSP_MONO 


IS ALT DSPAY MONO MONITOR? 


0A43 


74 OA 


JZ 


PHYS_ALT_NONE 


JUMP NO ALT DISPLAY 


0A45 


A8 04 


TEST 


AL,MONO_BAD 


IS THE MONOCHROME BAD? 


0A47 


75 06 


JNZ 


PHYS_ALT_NONE 


YES, SET FOR NO ALTERNATE 


0A49 


2E: Al 0000 E 


MOV 


AX,MONO_TBL[0] 


NO, SET MONOCHROME MONITOR # 


0A4D 


EB 02 


JMP 


SHORT PHYS_END 


JUMP TO EXIT 


0A4F 




PHYS_ALT_NONE: 


ALT NOT THERE OR INOPERATIVE 


0A4F 


2B CO 


SUB 


AX, AX 


SET MONITOR # TO 


0A51 




PHYS_END: 






0A51 


55 


PUSH 


BP 




0A52 


8B EC 


MOV 


BP,SP 


GET PTR TO STACK SAVE AREA 


0A54 


8C 46 10 


MOV 


[BP].ES_POS,ES 


SET UP RETURN VAL IN STACK 


0A57 


89 7E 04 


MOV 


[BP].DI_POS,DI 




0A5A 


5D 


POP 


BP 
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0A5B 
0A5E 



E9 016F R 



JMP VIDEO_RETURN 
PHYS_DSP_DESCR_REQ ENDP 



Print Screen Interrupt Hex 05 
(PRT-SCRN) 



SUBTTL PRINT SCREEN BIOS - INT 05H HANDLER 



ROUTINE-NAME 



PRT_SCRN 



FUNCTION: 



THIS ROUTINE PRINTS THE SCREEN 



ENTRY CONDITIONS: 

PURPOSE OF ENTRY: PRINT SCREEN 

INPUT CONDITIONS: NONE 

RESTRICTIONS: ONLY ONE PRINT SCREEN REQUEST AT A TIME 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: 

STATUS_BYTE (50:0) = 

THE SCREEN IS PRINTED OR IF CTRL BREAK IS 
PRESSED THE PRINT IS TERMINATED. 
ERROR EXIT CONDITIONS: 

STATUS.BYTE (50:0) = OFFH (PRINTER ERROR) 

THE PRINT IS TERMINATED. 
STATUS_BYTE (50:0) = 01 (PRINT SCREEN IN PROG.) 

PRINT SCREEN IS ALREADY IN PROGRESS AND ANOTHER 
PRINT SCREEN IS REQUESTED THE LATEST PRINT 
SCREEN REQUEST IS IGNORED. 

REGISTERS MODIFIED: ALL SAVED 

RETURN TYPE: IRET (ALL FLAGS RESTORED) 

INTERRUPTS: ENABLED DURING PROCESSING 

INTERNALLY REFERENCED ROUTINES: CRLF 



EXTERNALLY REFERENCED ROUTINES: 



INT 10H (VIDEO_FN) 
INT 17H (PRINTER_FN) 



*************************************************** 

_. INT 5H 

THIS LOGIC WILL BE INVOKED BY INTERRUPT 05H TO PRINT THE 

SCREEN. CURSOR POSITION AT THE TIME THIS ROUTINE IS INVOKED 

WILL BE SAVED AND RESTORED UPON COMPLETION. THE ROUTINE IS 

INTENDED TO RUN WITH INTERRUPTS ENABLED. IF A SUBSEQUENT 

■PRINT SCREEN' KEY IS DEPRESSED DURING THE TIME THIS ROUTINE 

IS PRINTING IT WILL BE IGNORED. 

IF THE CONTROL BREAK KEYS ARE PRESSED DURING THE PRINTING, THE 

PRINT SCREEN REQUEST IS TERMINATED. 

ERRORS ENCOUNTERED DURING PRINT (RETURN BY INT 17H) CAN BE 

OUT OF PAPER, I/O ERROR AND TIME OUT. 

STATUS BYTE IS UPDATED ON EACH CALL TO PRINT SCREEN. 

ADDRESS 50:0 CONTAINS THE STATUS OF THE PRINT SCREEN: 



50:0 



= 1 
=255 



EITHER PRINT SCREEN HAS NOT BEEN CALLED 
OR UPON RETURN FROM A CALL THIS INDICATES 
A SUCCESSFUL OPERATION. 
PRINT SCREEN IS IN PROGRESS 
ERROR ENCOUNTERED DURING PRINTING 



ASSUME CS : ROMCODE , DS : DATA , ES : XXDATA 



0A5E 

0A5E FB 
0A5F 06 



PRT_SCRN PROC 
STI 
PUSH ES 



FAR 



; MUST RUN WITH INTERRUPTS ENABLED 
; MUST USE 50:0 FOR DATA AREA 
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0A60 


IE 






PUSH 


DS 


0A61 


50 






PUSH 


AX 


0A62 


53 






PUSH 


BX 


0A63 


51 






PUSH 


CX 


0A64 


52 






PUSH 


DX 


0A65 


B8 R 






MOV 


AX,XXDATA 


0A68 


8E CO 






MOV 


ES,AX 


0A6A 


26: 80 3E 


0000 R 


01 


CMP 
JFZ 


STATUS_BYTE,PRTSC_y 
EXIT 


0A70 


75 03 






JNZ 


$+5 


0A72 


E9 0B07 R 






JMP 


EXIT 


0A75 


26: C6 06 


0000 R 


01 


MOV 


STATUS_BYTE,PRTSCJ 


0A7B 


B8 R 






MOV 


AX, DATA 


0A7E 


8E D8 






MOV 


DS,AX 


0A80 


83 3E 0008 


R 00 




CMP 
JFZ 


PRINTER_BASE[0],0 
ERR20 


0A85 


75 03 






JNZ 


$+5 


0A87 


EB 6F 90 






JMP 


ERR20 


0A8A 


B4 OF 






MOV 


AH,GET_VIDEO_STATE 


0A8C 


CD 10 






INT 


VIDEO_FN 



MUST USE 40:0 FOR DATA AREA 



FOR CURSOR LIMITS 
CURRENT CURSOR POSITION 
HEX 50 



YES, JUMP TO END 
IF NOT ZERO JUMP AROUND JUMP 
ELSE TAKE A LONG JUMP 
IVE; SHOW PRNT IN PROGRESS 
HEX 40 

IS PRINTER ATTACHED? 

NO, ERROR EXIT 

IF NOT ZERO JUMP AROUND JUMP 

ELSE TAKE A LONG JUMP 

REQUEST CURRENT SCREEN MODE 

ON RETURN [AL] = MODE, 

[AH]=NUMBER COLUMNS/LINE, 



AT THIS POINT WE KNOW THE COLUMNS/LINE ARE IN 

[AX] AND THE PAGE IF APPLICABLE IS IN -BH-. THE STACK 

HAS DS,AX,BX,CX,DX PUSHED. -AL- HAS VIDEO MODE 



0A8E 8A CC 

0A90 B5 19 

0A92 E8 OBOE R 

0A95 F6 C4 29 

0A98 75 5E 

0A9A 51 

0A9B B4 03 

0A9D CD 10 

0A9F 59 

OAAO 52 

0AA1 33 D2 



MOV 
MOV 
CALL 
TEST 

JNZ 
PUSH 
MOV 
INT 

POP 

PUSH 

XOR 



CL,AH 
CH,25 
CRLF 
AH,29H 

ERR20 
CX 

AH, GET. 
VIDEO. 

CX 
DX 
DX,DX 



CURSOR_INFO 
FN 



USE OF -CX- REGISTER TO 

CONTROL ROW & COLUMNS 

CR LF ROUTINE 

TEST FOR PRINTER ERRORS 

OUT OF PAPER, I/O & TIME OUT 

JUMP IF ERROR DETECTED 

SAVE SCREEN BOUNDS 

WILL NOW READ THE CURSOR. 

ON RETURN: CX=CRNT CRSR MODE, 

DX = ROW, COL OF CRNT CURSOR 

RECALL SCREEN BOUNDS 

SAVE CURRENT CURSOR POSITION 

WILL SET CURSOR POS TO -0,0- 



THE LOOP FROM PRI10 TO THE INSTRUCTION PRIOR TO PRI20 
IS THE LOOP TO READ EACH CURSOR POSITION FROM THE 
SCREEN AND PRINT. 



0AA3 








PRI10: 








0AA3 


F6 


06 


0071 R 80 


TEST 


BIOS.BREAK, 


BREAK_HIT 


; HAS BREAK KEY BEEN PRESSED? 


0AA8 


74 


07 




JZ 


PRI12 




NO KEY, JUMP AROUND 


OAAA 


80 


26 


0071 R 7F 


AND 


BIOS_BREAK, 


NOT BREAkIhIT: YES, TURN BREAK KEY OFF 


OAAF 


EB 


35 




JMP 


SHORT PRI20 ; 


JUMP TO END 


0AB1 








PRI12: 








0AB1 


B4 


02 




MOV 


AH,SET_CURSOR_POS ; 


TO SHOW CURSOR SET REQUEST 


0AB3 


CD 


10 




INT 


VIDEO_FN 




NEW CURSOR POSITION 


0AB5 


B4 


08 




MOV 


AH,READ_ATT 


_CHAR ; 


TO INDICATE READ CHARACTER 


0AB7 


CD 


10 




INT 


VIDEO_FN 




CHARACTER NOW IN [AL] 


0AB9 


OA 


CO 




OR 


AL,AL 




SEE IF VALID CHAR 


OABB 


75 


02 




JNZ 


PRI15 




JUMP IF VALID CHAR 


OABD 


BO 


20 




MOV 


AL,' ' 




MAKE A BLANK 


OABF 








PRI15: 








OABF 


52 






PUSH 


DX 




SAVE CURSOR POSITION 


OACO 


33 


D2 




XOR 


DX,DX 




INDICATE PRINTER 1 


0AC2 


32 


E4 




XOR 


AH, AH 




TO SHOW PRINT CHAR IN -AL- 


0AC4 


CD 


17 




INT 


PRINTER_FN 




PRINT THE CHARACTER 


0AC6 


5A 






POP 


DX 




RECALL CURSOR POSITION 


0AC7 


F6 


C4 


29 


TEST 


AH, 29H 




TEST FOR PRINTER ERRORS 

OUT OT PAPER, I/O & TIME OUT 


OACA 


75 


27 




JNZ 


ERR10 




JUMP IF ERROR DETECTED 


OACC 


FE 


C2 




INC 


DL 




ADVANCE TO NEXT COLUMN 


OACE 


3A 


CA 




CMP 


CL,DL 




SEE IF AT END OF LINE 


OADO 


75 


Dl 




JNE 


PRI10 




IF NOT PROCEED 


0AD2 


32 


D2 




XOR 


DL,DL 




BACK TO COLUMN 


0AD4 


8A 


E2 




MOV 


AH,DL 




[AH]=0 


0AD6 


52 






PUSH 


DX 




SAVE NEW CURSOR POSITION 


0AD7 


E8 


OBOE R 


CALL 


CRLF 




LINE FEED CARRIAGE RETURN 



ROM BIOS 2-117 



OADA 


5A 




POP 


DX 


; RECALL CURSOR POSITION 


OADB 


F6 


C4 29 


TEST 


AH,29H 


; TEST FOR PRINTER ERRORS 

; OUT OF PAPER, I/O & TIME OUT 


OADE 


75 


13 


JNZ 


ERR10 


; JUMP IF ERROR DETECTED 


OAEO 


FE 


C6 


INC 


DH 


; ADVANCE TO NEXT LINE 


0AE2 


3A 


EE 


CMP 


CH,DH 


; FINISHED? 


0AE4 


75 


BD 


JNE 


PRI10 


; IF NOT CONTINUE 


0AE6 






PRI20: 






0AE6 


5A 




POP 


DX 


; RECALL CURSOR POSITION 


0AE7 


B4 


02 


MOV 


AH,SET_CURSOR_POS 


; TO SHOW CURSOR SET REQUEST 


0AE9 


CD 


10 


INT 


VIDEO_FN 


; CURSOR POSITION RESTORED 


OAEB 

00 

0AF1 


26 


C6 06 0000 R 


MOV 


STATUS_BYTE,0 


; INDICATE FINISHED 


EB 


14 


JMP 


SHORT EXIT 


; EXIT THE ROUTINE 


0AF3 






ERR10: 






0AF3 


5A 




POP 


DX 


; GET CURSOR POSITION 


0AF4 


B4 


02 


MOV 


AH,SET_CURSOR_POS 


; TO REQUEST CURSOR SET 


0AF6 


CD 


10 


INT 


VIDEO_FN 


; CURSOR POSITION RESTORED 


0AF8 






ERR20: 






0AF8 


BB 


0053 


MOV 


BX,083 


; NO. CYCLES FOR 83MSEC TONE 


OAFB 


B9 


0081 


MOV 


CX,081H 


; 1/2 CYCLE FOR 1KHZ TONE 


OAFE 


E8 


0000 E 


CALL 


KB_NOISE 


; SOUND BEEP FOR ERROR 


0B01 

FF 

0B07 


26 


C6 06 0000 R 


MOV 


STATUS_BYTE,PRTSC_ 


.ERROR ; INDICATE ERROR 






EXIT: 






0B07 


5A 




POP 


DX 


; RESTORE ALL REGISTERS USED 


0B08 


59 




POP 


CX 




0B09 


5B 




POP 


BX 




OBOA 


58 




POP 


AX 




OBOB 


IF 




POP 


DS 




OBOC 


07 




POP 


ES 




OBOD 


CF 




IRET 






OBOE 






PRT_SCRh 


ENDP 










CARRIAGE 


RETURN, LINE FEED SUBROUTINE 


OBOE 






CRLF 


PROC NEAR 




OBOE 


33 


D2 


XOR 


DX,DX 


; PRINTER 


0B10 


32 


E4 


XOR 


AH, AH 


; WILL NOW SEND INITIAL LF,CR 
; TO PRINTER 


0B12 


BO 


OA 


MOV 


AL,12Q 


; LF 


0B14 


CD 


17 


INT 


PRINTER_FN 


; SEND THE LINE FEED 


0B16 


F6 


C4 29 


TEST 


AH,29H 


; TEST FOR PRINTER ERRORS 

; OUT OF PAPER, I/O & TIME OUT 


0B19 


75 


06 


JNZ 


CRLF1 


; EXIT IF ERROR 


0B1B 


32 


E4 


XOR 


AH, AH 


; NOW FOR THE CR 


0B1D 


BO 


OD 


MOV 


AL,15Q 


; CR 


0B1F 


CD 


17 


INT 


PRINTER_FN 


; SEND THE CARRIAGE RETURN 


0B21 


C3 




CRLF1: 


RET 




0B22 






CRLF 


ENDP 




0B22 






ROMCODE 
END 


ENDS 
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Diskette Support (B13DSKT) 



******************************** 


PUBLICS 




******************************** 


PUBLIC 


DSKT_I0 


PUBLIC 


SEEK 


PUBLIC 


DSKT_INTE 


PUBLIC 


SYS_B00T 


PUBLIC 


DISK_RESET 


PUBLIC 


NEC.OUTPUT 


PUBLIC 


RESULTS 


PUBLIC 


SEEK 


PUBLIC 


6ET_PARM 



********************************** 



***•***••*** 



***************** 



********************************************************************** 

EXTERNAL REFERENCES 
********************************************************************** 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



DDS:NEAR 

DSKT_BASE:BYTE 

GET_RTC_REG:NEAR 

PUT_RTC_REG:NEAR 

PARMS_TPI48:BYTE 

PARMS_TPI135:BYTE 

DSP_FSETM:NEAR 

DSP_INIT:NEAR 

ICON_PR:NEAR 

EXT_EVENT:NEAR 

Fl_ICON:BYTE 

SYS_DSKT_I CON :BYTE 

DSKT_I CON -.BYTE 

BAD_DSKT_ICON:BYTE 

RES_ERR_CHK:NEAR 

POST_LOOP:NEAR 



OOOO 



ROMCODE SEGMENT BYTE PUBLIC 
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MODULE-NAME : B13DSKT 

DATE LAST MODIFIED: 09/12/85 

DESCRIPTIVE-NAME : BIOS DISKETTE SERVICE ROUTINES 

COPYRIGHT : 7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 

CHANGE LEVEL: 0.0 

FUNCTION: THIS MODULE PROVIDES INPUT/ OUTPUT SERVICE FUNCTIONS TO THE 
FLOPPY DISKETTE CONTROLLER / DISKETTE DRIVES AND ASSOCIATE 
HARDWARE. 

MODULE SIZE: 1761 BYTES 

INPUT PARAMETERS: SEE LIST PROVIDED FOR EACH FUNCTION CALL BELOW 

OUTPUT PARAMETERS: SEE LIST PROVIDED FOR EACH FUNCTION CALL BELOW 

ROUTINES IN MODULE: DSKT_IO - COMMON ENTRY FOR ALL OTHER ROUTINES 

FOR DISKETTE SERVICES 
SYS_BOOT- ENTRY FOR LOADING 

THE DISKETTE BOOT PROGRAM 

INTERNAL DATA AREAS / TABLES: BIOS DATA AREA AT SEGMENT 40H 

EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 

EXTERNALLY REFERENCED DATA AREAS: REFER TO EXTRN LIST 

CHANGE ACTIVITY: 



Diskette I/O Interrupt Hex 13 
(DSKTJO) 



- INT 13H 

DISKETTE I/O - DSKT_IO 

INPUT: 

(AH)=0 RESET DISKETTE SYSTEM 

HARD RESET TO NEC, PREPARE COMMAND, SET RECAL REQUIRED 
ON ALL DRIVES 

(AH)=1 READ THE STATUS OF THE SYSTEM INTO (AL) 

DISKETTE_STATUS FROM LAST OPERATION IS USED 

(AH)=2 READ THE DESIRED SECTORS INTO MEMORY 

(AH)=3 WRITE THE DESIRED SECTORS FROM MEMORY 

(AH)=4 VERIFY THE DESIRED SECTORS 



2-120 ROM BIOS 



(AH)=5 FORMAT THE DESIRED TRACK 

FOR THE FORMAT OPERATION, BUFFER POINTER (ES.BX) 
MUST POINT TO COLLECTION OF DESIRED ADDR FIELDS 
FOR THE TRACK. EACH FIELD IS COMPOSED OF 4 BYTES, 
(C,H,R,N), WHERE C = TRACK NUMBER, H=HEAD NUMBER, 
R = SECTOR NUMBER, N= NUMBER OF BYTES PER SECTOR 
(00=128, 01=256, 02=512, 03=1024). THERE MUST BE ONE 
ENTRY FOR EVERY SECTOR ON THE TRACK. THIS INFORMATION 
IS USED TO FIND THE REQUESTED SECTOR DURING READ/WRITE 
ACCESS. 

REGISTERS FOR READ/WRITE/VERIFY/FORMAT 
INPUT: 

(DL) - DRIVE NUMBER (0-3 ALLOWED, VALUE CHECKED) 

(DH) - HEAD NUMBER (0-1 ALLOWED, NOT VALUE CHECKED) 

(CH) - TRACK NUMBER (0-4F, NOT VALUE CHECKED) 

(CL) - SECTOR NO. (NOT VALUE CHKD, NOT USED FOR FORMAT) 

(AL) - NO. OF SECTORS ( NOT VALUE CHKD, NOT USED FOR FMT) T) 

(ES:BX) - ADDRESS OF BUFFER ( NOT REQUIRED FOR VERIFY 

DATA VARIABLE — DISK_POINTER 

DOUBLE WORD POINTER TO CURRENT SET OF DSKT PARAMETERS 



NO ERROR DETECTED 
ATTACHMENT FAILED TO RESPOND 
SEEK OPERATION FAILED 
NEC CONTROLLER HAS FAILED 
BAD CRC ON DISKETTE READ 
ATMPT TO DMA CROSS 64K BNDRY 
DMA OVERRUN ON OPERATION 
MEDIA HAS BEEN CHANGED 
REQUESTED SECTOR NOT FOUND 
WRT ATMPTD ON WRT PROT DISK 
ADDRESS MARK NOT FOUND 
BAD CMD PASSED TO DSKT I/O 

AL = NUMBER OF SECTORS ACTUALLY TRANSFERRED 
DS,BX,DX,CX PRESERVED 

CY = SUCCESSFUL OPERATION (AH=0 ON RETURN) 
CY = 1 FAILED OPERATION (AH HAS ERROR CODE) 

************ ERROR RETRY PROCEDURE ************* 

NOTE: IF AN ERROR IS REPORTED BY THE DISKETTE CODE, THE 
APPROPRIATE ACTION IS TO RESET THE DISKETTE, THEN RETRY 
THE OPERATION. MEDIA CHANGE ERRORS NEED NOT BE RETRIED. 



OUTPUT: 




AH = STATUS OF OPERATION 


GOOD RETURN 


OOH 


TIME_OUT 


80H 


BAD_SEEK 


40H 


BAD_NEC 


20H 


BAD.CRC 


10H 


DMA_BOUNDARY 


09H 


BAD_DMA 


08H 


MEDIA_CHANGE 


06H 


RECORD_NOT_FND 


04H 


WRITE_PROTECT 


03H 


BAD_ADDR_MARK 


02H 


BAD_CMD 


01H 
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(AH) =8 READ DRIVE PARAMETERS 
DL = DRIVE NUMBER (0-3) 

OUTPUT PARAMETERS: 

IF DRIVE INSTALLED: 

ES:DI = POINTER TO DRIVE PARAMETERS TABLE 

CH = MAXIMUM TRACK NUMBER / SIDE (LOWER 8 BITS) 

CL (BITS 7-6) = TWO MOST SIGNIFICANT BITS OF 

10 BIT TRACK NUMBER 
CL (bits 5-0) = MAXIMUM 512 BYTE SECTOR NUMBER 

(6 BITS) PER TRACK 
DH = MAXIMUM HEAD NUMBER 
DL = NUMBER OF DISKETTE DRIVES INSTALLED ON 

SYSTEM (1 - 2) 
AX = 
BH = 

BL = DRIVE TYPE (1 - 360K 40 TRACK DRIVE) 
(2-1.2 Meg 80 TRACK DRIVE) 
(3 - 720K 80 TRACK DRIVE) 
DISKETTE_STATUS IS CLEARED, CARRY FLAG IS RESET. 

IF DRIVE NOT INSTALLED: 
ES,AX,BX,CX,DH,DI = 

DL = NUMBER OF DISKETTE DRIVES INSTALLED 

DISKETTE_STATUS = 

CARRY FLAG IS RESET. 



(AH) = 15H CHECK FOR CHANGE LINE SUPPORT (READ DASD) 
DL = DRIVE NUMBER (0-3) 
OUTPUT PARAMETERS: 

AH = 00 - NO DRIVE PRESENT 

01 - DSKT DRV WITH NO CHANGE LINE SUPPORT INSTALLED 

02 - DSKT DRV WITH CHANGE LINE SUPPORT INSTALLED 

03 - FIXED DISK 
DISKETTE_STATUS = 0, CARRY FLAG CLEAR 



(AH)=16H READ DISKETTE CHANGE LINE STATUS 
DL = DRIVE NUMBER (0-3) 
OUTPUT PARAMETERS: 

IF DRIVE INSTALLED: 

DISKETTE_STATUS = OOH- DISK CHANGE LINE NOT ACTIVE 

- CARRY FLAG IS CLEARED 
06H- DISK CHANGE LINE ACTIVE 

- CARRY FLAG IS SET 

- DISKETTE HEAD STEPPED TO 

TRACK 1 THEN TO RESET CHANGE LINE 
80H- DISK CHANGE LINE ACTIVE AND 
CANNOT BE RESET 
(NO DISKETTE IN DRIVE) 
- CARRY FLAG IS SET 
IF DRIVE NOT INSTALLED: 

DISKETTE_STATUS = TIMEOUT (80H) 

CARRY FLAG IS CLEARED 
IF DRIVE DOES NOT SUPPORT CHANGE LINE: 
DISKETTE_STATUS = MEDIA CHANGE (06) 
CARRY FLAG IS CLEARED 



(AH)=17H SET DASD TYPE FOR FORMAT 
DL = DRIVE NUMBER (0-3) 
AL = FORMAT TYPE 

00 = NOT USED 

01 = DISKETTE 320/360K IN 360K DRIVE 

02 = DISKETTE 360K IN 1.2MEG DRIVE 

03 = DISKETTE 1.2MEG IN 1.2MEG DRIVE 

04 = DISKETTE 720K IN 720K DRIVE 

OUTPUT PARAMETERS: 

AH=DISKETTE_STATUS= CARRY FLAG CLEAR 

NO FUNCTION PERFORMED 
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(AH) = ALL OTHER VALUES 

OUTPUT: AH=DISKETTE_STATUS = 01 (BAD COMMAND) CARRY FLAG SET 



0000 
0002 
0004 
0006 
0008 
OOOA 
OOOC 
OOOE 
0010 



0000 
0000 
0002 
0004 
0006 
0008 
OOOA 
OOOC 
OOOE 
0010 



002A 
002D 
002F 
0032 
0034 
0037 



ASSUME CS:ROMCODE,DS:DATA 
STRUCTURE DEFINING SAVE AREA ON STACK 



???? 
???? 
???? 
???? 
???? 
???? 
???? 
???? 



0000 ?? 

0001 ?? 

0002 08 



243 
OOOA 
OOOB ?? 
OOOC 
OOOD 
OOOE 
OOOF ?? 
0010 



0082 
00F6 
OOFD 
0139 
010F 
0122 
007C 
007C 
0494 



0012 04E3 R 

0014 050B R 

0016 0580 R 

0018 

0018 FB 

0019 50 
001A 53 
001B 51 
001C IE 
001D 56 
001E 57 
001F 55 

0020 52 

0021 8B EC 
0023 E8 0000 E 
0026 2A FF 
0028 8A DC 



80 FC 08 
76 15 
80 FC 15 
72 05 
80 FC 18 
72 08 



REGSAVE 


STRUC 




DXSAVE 


DW 


? 


BPSAVE 


DW 




? 


DISAVE 


DW 




? 


SISAVE 


DW 




? 


DSSAVE 


DW 






CXSAVE 


DW 






BXSAVE 


DW 




? 


AXSAVE 


DW 




? 


REGSAVE 


ENDS 


REGHSAV 


STRUC 


DLSAVE 


DB 


? 


DHSAVE 


DB 


? 




DB 


8 DUP(?) 


CLSAVE 


DB 


? 


CHSAVE 


DB 






BLSAVE 


DB 




? 


BHSAVE 


DB 




? 


ALSAVE 


DB 




? 


AHSAVE 


DB 




? 


REGHSAV 


ENDS 


DSKT.TABLE 


LABEL WORD 


DW 




OFFSET DISK_RESET 


DW 




OFFSET DISK_STATUS 


DW 




OFFSET DISK.READ 


DW 




OFFSET DISK_WRITE 


DW 




OFFSET DISK_VERF 


DW 




OFFSET DISK_FORMAT 


DW 




OFFSET DSKT_INV.CMD 


DW 




OFFSET DSKT_INV.CMD 


DW 




OFFSET DSKT_RDPARM 


DW 




OFFSET DSKT.RDDASD 


DW 




OFFSET DSKT_CHANGE 


DW 




OFFSET DSKT_SETDASD 


DSKT.IO 


PROC FAR 


STI 






PUSH 




AX 


PUSH 




BX 


PUSH 




CX 


PUSH 




DS 


PUSH 




SI 


PUSH 




DI 


PUSH 




BP 


PUSH 




DX 


MOV 




BP,SP 


CALL 




DDS 


SUB 




BH,BH 


MOV 




BL,AH 


CMP 




AH, 8 


JBE 




DI0_1 


CMP 




AH,15H 


JB 




DIO_INV.CMD 


CMP 




AH,18H 


JB 




DIO_0 





DX 


SAVE 


AREA 


ON 


STACK 


BP 


SAVE 


AREA 


ON 


STACK 


DI 


SAVE 


AREA 


ON 


STACK 


SI 


SAVE 


AREA 


ON 


STACK 


DS 


SAVE 


AREA 


ON 


STACK 


CX 


SAVE 


AREA 


ON 


STACK 


BX 


SAVE 


AREA 


ON 


STACK 


AX 


SAVE 


AREA 


ON 


STACK 


DL 


SAVE 


AREA 


ON 


STACK 


DH 


SAVE 


AREA 


ON 


STACK 



CL SAVE AREA ON STACK 
CH SAVE AREA ON STACK 
BL SAVE AREA ON STACK 
BH SAVE AREA ON STACK 
AL SAVE AREA ON STACK 
AH SAVE AREA ON STACK 



AH=0 — DISK RESET COMMAND — 

AH=1 -- DISK STATUS COMMAND — 

AH=2 -- DISK READ COMMAND — 

AH=3 — DISK WRITE COMMAND — 

AH=4 -- DISK VERIFY COMMAND - 

AH=5 -- DISK FORMAT COMMAND -- 

AH=6 -- INVALID COMMAND — 

AH=7 -- INVALID COMMAND — 

AH=8 — READ DISKETTE DRIVE PARMS — 
AH=9 THRU 12 AND <17 ARE ALSO INVALID 

AH=15 -- DETERMINE SUPPORT OF DCL -- 

AH=16 ~ DISKETTE CHANGE LINE STAT -- 

AH=17 -- DISKETTE SET DASD TYPE 



INTERRUPTS BACK ON 



TEMPORARY SAVE AREA 
SAVE ADDRESS 



SAVE SEGMENT REGISTER VALUE 

SAVE ALL REGISTERS DURING OPERATION 



SET UP POINTER TO HEAD PARM 



SET FUNCTION CODE IN LOW BYTE 

CHECK FUNCTION RANGE 

JUMP IF OKAY 

CHECK FUNCTION RANGE 

JUMP IF ERROR 

JUMP IF BELOW LIMIT 

JUMP IF OKAY AND IN 15-17 RANGE 



FUNCTION CODE OUT OF RANGE 



ROM BIOS 2-123 



0039 












DI0_INV_ 


XMD: 


0039 


C6 


06 


0041 


R 


01 


MOV 


DISKETTE_STATUS,BA 


003E 


EB 


26 


90 






JMP 


DI0_2 


0041 












DIO_0: 




0041 


80 


EB 


OC 






SUB 


BL,12 


0044 












DI0_1: 




0044 


80 


FC 


01 






CMP 


AH,1 


0047 


76 


05 








JBE 


DI0_11 










RANGE 


CHECK DRIVE NUMBER 


0049 


80 


FA 


03 






CMP 


DL,3 


004C 


77 


EB 








JA 


DIO_INV_CMD 


004E 












DI0_11: 




004E 


Dl 


E3 








SHL 


BX,1 


0050 


80 


26 


003F 


R 


7F 


AND 


MOTOR_STATUS,NOT W 


0055 


2E 


FF 97 


3000 R 


CALL 


DSKT_TABLE[BX] 


005A 


91 










XCHG 


CX,AX 


005B 


BB 


0004 






MOV 


BX,4 


005E 


E8 


0259 R 






CALL 


GET_PARM 


0061 


88 


26 


0040 


R 




MOV 


MOTOR_COUNT,AH 


0065 


91 










XCHG 


AX,CX 


0066 












DI0_2: 




0066 


8A 


26 


0041 


R 




MOV 


AH,DISKETTE_STATUS 


006A 


88 


66 


OF 






MOV 


AHSAVE[BP],AH 


006D 


80 


FC 


01 






CMP 


AH,1 


0070 


F5 










CMC 




0071 












DI0_3: 




0071 


5A 










POP 


DX 


0072 


5D 










POP 


BP 


0073 


5F 










POP 


DI 


0074 


5E 










POP 


SI 


0075 


IF 










POP 


DS 


0076 


59 










POP 


CX 


0077 


5B 










POP 


BX 


0078 


58 










POP 


AX 


0079 


CA 


0002 






RET 


2 


007C 












DSKT_IO 


ENDP 



MD ; INDICATE INVALID COMMAND 
GET STATUS AND EXIT 



; CORRECT FUNCTION CODE FOR 15,16 

; RESET COMMAND OR STATUS COMMAND? 
; JUMP AROUND DRIVE RANGE CHECK IF SO 



JUMP IF INVALID 



DOUBLE LINK TABLE OFFSET 
E_OP ; RESET WRITE OPERATION FLAG 
CALL PROPER ROUTINE 

SAVE AX 

GET THE MOTOR WAIT PARAMETER 

SET THE TIMER COUNT FOR THE MOTOR 
RESTORE AL 



GET STATUS OF OPERATION 

SAVE RETURN CODE ON STACK 

SET THE CARRY FLAG FOR FAILURE 



RESTORE ALL REGISTERS 



RECOVER ADDRESS 
RESTORE AX REGISTER 
THROW AWAY SAVED -FLAGS 



****************************** 

INVALID COMMAND RECEIVED 
****************************** 



007C 

007C C6 06 0041 R 01 

0081 C3 

0082 



DSKT_INV_CMD PROC NEAR 

MOV DISKETTE_STATUS,BAD_CMD 

RET 
DSKT_INV_CMD ENDP 



SV STAT & ST CRY FOR ERR 









• ■> 


t*************** 

RESET THE 


********************** 
DISKETTE SYSTEM 


a-******************** 








. **************** 


******************************************* 


0082 








DISK_RESET 


PROC NEAR 




0082 


BA 


03F2 






MOV 




DX,DRIVE_CNTL 


; ADAPTER CONTROL PORT 


0085 


FA 








CLI 






; NO INTERRUPTS 


0086 


C6 


06 0040 


R FF 


MOV 




MOTOR_COUNT,OFFH 


; SET LONG MOTOR ON TIME 


008B 


AO 


003F 


R 




MOV 




AL,MOTOR_STATUS 


; WHICH MOTOR IS ON 


008E 


Bl 


04 






MOV 




CL,4 


; SHIFT COUNT 


0090 


D2 


EO 






SAL 




AL,CL 


; MOVE MOTOR VALUE TO HIGH NYBBLE 


0092 


A8 


20 






TEST 




AL, 20H 


; SELECT CORRESPONDING DRIVE 


0094 


75 


OC 






JNZ 




J5 


; JUMP IF MOTOR ONE IS ON 


0096 


A8 


40 






TEST 




AL, 40H 




0098 


75 


06 






JNZ 




J4 


; JUMP IF MOTOR TWO IS ON 


009A 


A8 


80 






TEST 




AL, 80H 




009C 


74 


06 






JZ 




J6 


; JUMP IF MOTOR ZERO IS ON 


009E 


FE 


CO 






INC 




AL 




OOAO 








J4 










OOAO 


FE 


CO 






INC 




AL 




00A2 








J5 










00A2 


FE 


CO 






INC 




AL 





2-124 ROM BIOS 



00A4 

00A4 OC 08 

00A6 EE 

00A7 C6 06 003E R 00 



J6: 



OOAC 
00B1 
00B3 
00B4 
00B7 
00B9 
OOBC 
OOBD 



C6 06 0041 R 00 

OC 04 

EE 

E8 0373 R 

72 3C 

B8 00F5 R 

50 

B9 0004 



OR 
OUT 

MOV 

MOV 

OR 

OUT 

CALL 

JC 

MOV 

PUSH 

MOV 



AL,FDC_DMA_ENAB 
DX,AL 

SEEK_STATUS,0 

DISKETTE_STATUS,0 

AL,FDC_RUN 

DX,AL 

WAIT_INT 

J8 

AX,OFFSET J8 

AX 

CX,4 



TURN ON INTERRUPT ENABLE 
RESET THE ADAPTER 

SET RECAL REQUIRED ON ALL DRIVES 

SET OK STATUS FOR DISKETTE 

TURN OFF RESET 

TURN OFF THE RESET 

WAIT FOR INTERRUPT 

IF NO INTERRUPT THEN EXIT 

SET ERROR RETURN ADDRESS FOR NEC.OUT 

READ RESET STATUS FOR ALL 4 DRIVES 



OOCO 
OOCO 
00C2 
00C5 
00C8 
OOCB 
OOCD 
OOCF 
00D1 
00D3 



OODD 
OODD 
OODF 
00E2 
00E5 
00E8 
OOEB 
OOEE 
00F1 
00 F4 



B4 08 
E8 022C 
E8 03 B3 
AO 0042 
24 F8 
3C CO 
El EF 
OB C9 
74 08 



STATJ.00P : 
MOV 
CALL 
CALL 
MOV 
AND 
CMP 
LOOPZ 
OR 
JZ 



AH,READ_INT_STATUS 

NEC_OUTPUT 

RESULTS 

AL,NEC_STATUS 

AL,0F8H 

AL,OCOH 

STAT_LOOP 

CX,CX 

J7 



SENSE INTERRUPT STATUS 

COMMAND TO NEC 

GET THE RESULTS 

IGNORE ERROR RETURN AND DO OWN TEST 

IGNORE DRIVE SPECIFIER 

TEST FOR DRIVE READY TRANSITION 

IF OKAY GET NEXT DRIVE READY INFO 

ALL BYTES PICKED UP? 

IF SO THEN OKAY 



NEC ERROR : ALL 4 DRIVE STATUSES NOT CORRECT AFTER RESET 



00D5 58 

00D6 80 OE 0041 R 20 

OODB EB 18 



B4 03 
E8 022C 
BB 0001 
E8 0259 
E8 022C 
BB 0003 
E8 0259 
E8 022C 
58 



POP AX ; DISCARD ERROR ADDRESS ON STACK 

OR DISKETTE_STATUS,BAD_NEC ; SET ERROR CODE 
JMP SHORT J8 ; EXIT 



SEND SPECIFY COMMAND TO NEC 



J7: 



MOV 

CALL 

MOV 

CALL 

CALL 

MOV 

CALL 

CALL 

POP 



AH, SPECIFY 

NEC_OUTPUT 

BX,1 

GET_PARM 

NEC_OUTPUT 

BX,3 

GET_PARM 

NECOUTPUT 

AX 



DRIVE_READY 
SPECIFY COMMAND 
OUTPUT THE COMMAND 
FIRST BYTE PARM IN BLOCK 
TO THE NEC CONTROLLER 

SECOND BYTE PARM IN BLOCK 
TO THE NEC CONTROLLER 

DISCARD ERROR RETURN ADDRESS 



00F5 
00F5 
00F6 



C3 



J8: 

RET 
DISK_RESET 



ENDP 



RESET_RET 
RETURN TO CALLER 



00F6 
00F6 
00 F9 
OOFC 
OOFD 



AO 0041 R 
88 46 OE 
C3 



*********************************************************** 

DISKETTE STATUS ROUTINE 

*********************************************************** 

DISK_STATUS PROC NEAR 

MOV AL,DISKETTE_STATUS 

MOV ALSAVE[BP],AL 

RET 
DISK_STATUS ENDP 



: MOVE STATUS IN AL SAVE AREA 



OOFD 
OOFD 
0100 
0102 
0104 
0107 
0109 
010D 
010F 



*********************************************************** 
DISKETTE READ 



*********************************************************** 



E8 050B R 

72 IF 

BO 46 

E8 02F1 R 

72 18 

C6 46 OF E6 

EB 41 



DISK_READ 

CALL 

JC 

MOV 

CALL 

JC 

MOV 

JMP 
DISK_READ 



PROC NEAR 
DSKT.CHANGE 
DSKT_ERR 
AL,DMA_READ 
DMA_SETUP 
DSKT_ERR 

AHSAVE[BP],READ_CMND 
SHORT RW_OPN 

ENDP 



CHECK FOR MEDIA CHANGE 

READ COMMAND FOR DMA 
SET UP THE DMA 
JUMP IF ERROR 
; RD COMMAND (AH SAVE) 
GO DO THE OPERATION 



.*********************************************************** 
; DISKETTE VERIFY 



ROM BIOS 2-125 



. *********************************************************** 



010F 








DISK_VERF 


PROC NEAR 




OlOF 


E8 


050B R 




CALL 


DSKT_CHANGE 


CHECK FOR MEDIA CHANGE 


0112 


72 


OD 




JC 


DSKT_ERR 




0114 


BO 


42 




MOV 


AL,DMA_VERIFY ; 


VERIFY COMMAND FOR DMA 


0116 


E8 


02F1 R 




CALL 


DMA_SETUP ; 


SET UP THE DMA 


0119 


72 


06 




JC 


DSKT_ERR 




011B 


C6 


46 OF E6 




MOV 


AHSAVE[BP],READ_CMND 


, RD COMMAND (AH SAVE) 


011F 


EB 


2F 




JMP 


SHORT RW_OPN ; 


GO DO THE OPERATION 


0121 








DISK_VERF 


ENDP 








. *********************************************************** 






; DISKETTE ERROR OCCURRED 








. *********************************************************** 


0121 








DSKT_ERR: 






0121 


C3 






RET 


; 


RETURN TO MAIN ROUTINE 






. *********************************************************** 










DISKETTE FORMAT 
*********************************** 








. **i 


***•> 


******************* 


0122 








DISK_FORMAT PROC NEAR 




0122 


E8 


050B R 




CALL 


DSKT_CHANGE ; 


CHECK FOR MEDIA CHANGE 


0125 


72 


FA 




JC 


DSKT_ERR 




0127 


80 


OE 003F R 


80 


OR 


MOTOR_STATUS,WRITE_OP 


; INDICATE WRITE OPERATION 


012C 


BO 


4A 




MOV 


AL,DMA_WRITE ; 


WILL WRITE TO THE DISKETTE 


012E 


E8 


02F1 R 




CALL 


DMA_SETUP ; 


SET UP THE DMA 


0131 


72 


EE 




JC 


DSKT_ERR 




0133 


C6 


46 OF 4D 




MOV 


AHSAVE[BP],FORMAT_CMND ; FORMAT COMMAND (AH SAVE 


0137 


EB 


17 




JMP 


SHORT RW_OPN ; 


DO THE OPERATION 


0139 








DISK_FORMAT ENDP 








. **************************************** 


******************* 










DISKETTE WRITE ROUTINE 
*********************************** 








. **i 


t**i 


******************* 


0139 








DISK.WRITE 


PROC NEAR 




0139 


E8 


050B R 




CALL 


DSKT_CHANGE ; 


CHECK FOR MEDIA CHANGE 


013C 


72 


E3 




JC 


DSKT_ERR 




013E 


80 


OE 003F R 


80 


OR 


MOTOR_STATUS,WRITE_OP 


; INDICATE WRITE OPERATION 


0143 


BO 


4A 




MOV 


AL,DMA_WRITE ; 


DMA WRITE COMMAND 


0145 


E8 


02F1 R 




CALL 


DMA_SETUP 




0148 


72 


D7 




JC 


DSKT_ERR 




014A 


C6 


46 OF C5 




MOV 


AHSAVE[BP],WRITE_CMND 


; WRITE COMMAND (AH SAVE) 


014E 


EB 


00 




JMP 


SHORT RW_OPN 




0150 








DISK_WRITE 


ENDP 





**************************************************************** 
RW_OPN 

THIS ROUTINE PERFORMS THE READ/WRITE/VERIFY 

AND FORMAT OPERATIONS 
**************************************************************** 



0150 
0150 


E8 


041B R 


RW_OPN PROC NEAR 
CALL MOTOR_STARTUP 

DO THE SEEK OPERATION 


0153 
0156 


8B 
E8 


4E OA 
0268 R 


MOV CX,CXSAVE[BP] 
CALL SEEK 


0159 


C6 


46 OE 00 


MOV ALSAVE[BP],0 


015D 


72 


79 


JC J17 






; NEC. 


.OUTPUT WILL POP RETURN ADDR 


015F 
0162 


B8 
50 


0221 r' 


MOV AX, OFFSET J20 
PUSH AX 

- SEND OUT THE PARAMETERS TO 


0163 
0166 
0169 


8A 
E8 
8A 


66 OF 
022C R 
66 01 


MOV AH,AHSAVE[BP] 
CALL NEC.OUTPUT 
MOV AH,DHSAVE[BP] 



CHECK MOTOR STATE AND WAIT 
FOR STARTUP IF NECESSARY 



GET TRACK/ SECTOR PARMS 
MOVE TO CORRECT TRACK 

SET NO SECTORS READ IN CASE OF ERROR 

IN AL SAVE AREA 

IF ERROR, THEN EXIT AFTER MOTOR OFF 



DUMMY RETURN ON STACK FOR NEC_OUTPUT 
SO THAT IT WILL EXIT ROUTINE IF 
ERROR 



GET NEC COMMAND (AH SAVE) 
OUTPUT THE OPERATION COMMAND 
GET THE CURRENT HEAD NUMBER 



2-126 ROM BIOS 



016C 
016E 
0170 
0173 
0175 



DO E4 
DO E4 
80 E4 04 
OA E2 
E8 022C R 



SAL 

SAL 

AND 

OR 

CALL 



AH,1 
AH,1 
AH, 4 
AH,DL 
NEC_OUTPUT 



; MOVE IT TO BIT 2 

; ISOLATE THAT BIT 

; OR IN THE DRIVE NUMBER 



TEST FOR FORMAT COMMAND 



0178 
017C 



017E 
0181 
0184 
0187 
018A 
018D 
0190 
0193 
0196 
0199 
019C 



019E 
019E 
01A1 
01A4 
01A7 
01AA 
01AD 
01B0 
01B3 
01B6 
01B9 
01BC 
01BF 
01C2 
01C5 
01C8 
01CB 



80 7E OF 4D 
75 20 



CMP 
JNE 



AHSAVE[BP],FORMAT_CMND ; IS THIS A FORMAT OPERATION 
J15 ; NO. CONTINUE WITH R/W/V 



GET THE DATA FOR A FORMAT OPERATION 



BB 0007 
E8 0259 R 
E8 022C R 
BB 0009 
E8 0259 R 
E8 022C R 
BB OOOF 
E8 0259 R 
E8 022C R 
BB 0011 
EB 30 



8A 66 OB 
E8 022C R 
8A 66 01 
E8 022C R 
8A 66 OA 
E8 022C R 
BB 0007 
E8 0259 R 
E8 022C R 
BB 0009 
E8 0259 R 
E8 022C R 
BB OOOB 
E8 0259 R 
E8 022C R 
BB OOOD 



MOV 

CALL 

CALL 

MOV 

CALL 

CALL 

MOV 

CALL 

CALL 

MOV 

JMP 



BX,7 

GET_PARM 

NEC_OUTPUT 

BX,9 

GET_PARM 

NECJDUTPUT 

BX.15 

GET_PARM 

NEC_OUTPUT 

BX.17 

SHORT J16 



; GET THE 

; BYTES/SECTOR VALUE TO NEC 

; GET THE 

; SECTORS/TRACK VALUE TO NEC 

; GET THE 

; GAP LENGTH VALUE TO NEC 

; GET THE FILLER BYTE 

; TO THE CONTROLLER 



SEND THE DATA FOR A READ/WRITE/VERIFY OPERATION 



J15: 



MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

CALL 

MOV 

CALL 

CALL 

MOV 

CALL 

CALL 

MOV 



AH,CHSAVE[BP] 

NEC_OUTPUT 

AH,DHSAVE[BP] 

NECOUTPUT 

AH,CLSAVE[BP] 

NEC_OUTPUT 

BX,7 

GET_PARM 

NEC_OUTPUT 

BX,9 

GET_PARM 

NEC_OUTPUT 

BX,11 

GET_PARM 

NEC_OUTPUT 

BX,13 



CYLINDER NUMBER (CH SAVE) 

HEAD NUMBER FROM STACK 

SECTOR NUMBER (CL SAVE) 

BYTES/SECTOR PARM FROM BLOCK 
TO THE NEC 

EOT PARM FROM BLOCK 
TO THE NEC 

GAP LENGTH PARM FROM BLOCK 
TO THE NEC 

DTL PARM FROM BLOCK 



COMPLETE SETUP TO NEC AND WAIT FOR INTERRUPT 



01CE 

01CE E8 0259 R 

01D1 E8 022C R 

01D4 58 



J16: 
CALL 
CALL 
POP 



GET_PARM 

NEC_OUTPUT 

AX 



RW_OPN_FINISH 
TO THE NEC 



CAN NOW DISCARD THAT DUMMY 
RETURN ADDRESS 



LET THE OPERATION HAPPEN 



01D5 
01D8 
01D8 
01DA 
01DD 



E8 0373 R 

72 49 

E8 03B3 R 

72 42 



CALL 
J17: 
JC 

CALL 
JC 



WAIT_INT 

J21 

RESULTS 

J20 



WAIT FOR THE INTERRUPT 
MOTOR_OFF 
LOOK FOR ERROR 
GET THE NEC STATUS 
LOOK FOR ERROR 



CHECK THE RESULTS RETURNED BY THE CONTROLLER 



01DF FC 

01E0 BE 0042 R 

01E3 AC 

01E4 24 CO 

01E6 75 03 

01E8 EB 3E 90 

01EB 3C 40 

01ED 75 29 



CLD 

MOV SI, OFFSET NEC_STATUS 

LODS NEC.STATUS 

AND AL,OCOH 

JFZ J22 

JNZ $+5 

JMP J22 

CMP AL,040H 

JNZ J18 



SET THE CORRECT DIRECTION 
i POINT TO STATUS FIELD 
GET STO 

TEST FOR NORMAL TERMINATION 
OPN_OK 

IF NOT ZERO JUMP AROUND JUMP 
ELSE TAKE A LONG JUMP 
TEST FOR ABNORMAL TERMINATION 
NOT ABNORMAL, BAD NEC 



ABNORMAL TERMINATION, FIND OUT WHY 



ROM BIOS 2-127 



01EF 


AC 




LODS 


NEC_STATUS 


; GET ST1 




OlFO 


DO 


EO 


SAL 


AL,1 


; TEST FOR 


EOT FOUND 


01F2 


B4 


04 


MOV 


AH,RECORD_NOT_FND 






01F4 


72 


24 


JC 


J19 


; RW_FAIL 




01F6 


DO 


EO 


SAL 


AL,1 






01F8 


DO 


EO 


SAL 


AL,1 


; TEST FOR 


CRC ERROR 


01 FA 


B4 


10 


MOV 


AH,BAD_CRC 






01FC 


72 


1C 


JC 


J19 


; RW_FAIL 




01FE 


DO 


EO 


SAL 


AL,1 


; TEST FOR 


DMA OVERRUN 


0200 


B4 


08 


MOV 


AH,BAD_DMA 






0202 


72 


16 


JC 


J19 


; RW_FAIL 




0204 


DO 


EO 


SAL 


AL,1 






0206 


DO 


EO 


SAL 


AL,1 


; TEST FOR 


RECORD NOT FOUND 


0208 


B4 


04 


MOV 


AH,RECORD_NOT_FND 






020A 


72 


OE 


JC 


J19 


; RW_FAIL 




020C 


DO 


EO 


SAL 


AL,1 






020E 


B4 


03 


MOV 


AH,WRITE_PROTECT 


; TEST FOR 


WRITE_PROTECT 


0210 


72 


08 


JC 


J19 


; RW_FAIL 




0212 


DO 


EO 


SAL 


AL,1 


; TEST MISSING ADDRESS MARK 


0214 


B4 


02 


MOV 


AH,BAD_ADDR_MARK 






0216 


72 


02 


JC 


J19 


; RW_FAIL 










- NEC MUST HAVE FAILED 






0218 






J18: 




; RW-NEC-FAIL 


0218 


B4 


20 


MOV 


AH,BAD_NEC 






021A 






J19: 




; RW-FAIL 




021A 


08 


26 0041 R 


OR 


DISKETTE_STATUS,AH 






021E 


E8 


03F5 R 


CALL 


NUM_TRANS 


; HOW MANY 


WERE REALLY TRANSFERRED 


0221 






J20: 




; RW_ERR 




0221 


EB 


08 


JMP 


SHORT RW.EXIT 


; RETURN TO CALLER 


0223 






J21: 




; RW_ERR_RES 


0223 


E8 


03B3 R 


CALL 


RESULTS 


; FLUSH THE RESULTS BUFFER 


0226 


EB 


03 


JMP 
- OPERATION 


SHORT RW_EXIT 
WAS SUCCESSFUL 






0228 






J22: 




; OPN_OK 




0228 


E8 


03F5 R 


CALL 


NUM_TRANS 


; HOW MANY 


GOT MOVED 


022B 






RW_EXIT 








022B 


C3 




RET 








022C 






RW_OPN 


ENDP 







NEC_OUTPUT 

THIS ROUTINE SENDS A BYTE TO THE NEC CONTROLLER AFTER TESTING 
FOR CORRECT DIRECTION AND CONTROLLER READY THIS ROUTINE WILL 
TIME OUT IF THE BYTE IS NOT ACCEPTED WITHIN A REASONABLE 
AMOUNT OF TIME, SETTING THE DISKETTE STATUS ON COMPLETION. 



INPUT 



OUTPUT 



(AH) 

r 
cy = 

CY = 



BYTE TO BE OUTPUT 



(AL) 



SUCCESS 

1 FAILURE -- DISKETTE STATUS UPDATED 

IF A FAILURE HAS OCCURRED, THE RETURN IS MADE ONE LEVEL 
HIGHER THAN THE CALLER OF NEC_OUTPUT. 
THIS REMOVES THE REQUIREMENT OF TESTING AFTER EVERY 
CALL OF NECOUTPUT. 
DESTROYED 



022C 






022C 


52 




022D 


51 




022E 


BA 


03 F4 


0231 


33 


C9 


0233 






0233 


EC 




0234 


A8 


40 


0236 


74 


OE 


0238 


E2 


F9 


023A 







NEC_OUTPUT 


PROC NEAR 




PUSH 


DX 


; SAVE REGISTERS 


PUSH 


CX 




MOV 


DX,FDC_STATUS 


; STATUS PORT 


XOR 


ex, ex 


; COUNT FOR TIME OUT 


J23: 






IN 


AL,DX 


; GET STATUS 


TEST 


AL,DATA_READY 


; TEST DIRECTION BIT 


JZ 


J25 


; DIRECTION OK 


LOOP 


J23 




J24: 




; TIME_ERROR 



2-128 ROM BIOS 



023A 


C6 


06 0041 R 80 


MOV 


DISKETTE_STATUS 


TIME_OUT 


023F 


59 




POP 


CX 




0240 


5A 




POP 


DX 


; SET ERROR CODE AND RESTORE REGS 


0241 


83 


C4 02 


ADD 


SP,2 


; DISCARD THE RETURN ADDRESS 


0244 


F9 




STC 




; INDICATE ERROR TO CALLER 


0245 


C3 




RET 






0246 






J25: 






0246 


33 


C9 


XOR 


CX,CX 


; RESET THE COUNT 


0248 






J26: 






0248 


EC 




IN 


AL,DX 


; GET THE STATUS 


0249 


A8 


80 


TEST 


AL,REQ_MASTER 


; IS IT READY 


024B 


75 


04 


JNZ 


J27 


; YES, GO OUTPUT 


024D 


E2 


F9 


LOOP 


J26 


; COUNT DOWN AND TRY AGAIN 


024F 


EB 


E9 


JMP 


J24 


; ERROR CONDITION 


0251 






J27: 




; OUTPUT 


0251 


8A 


C4 


MOV 


AL,AH 


; GET BYTE TO OUTPUT 


0253 


B2 


F5 


MOV 


DL,0F5H 


; DATA PORT (3F5) 


0255 


EE 




OUT 


DX, AI- 


; OUTPUT THE BYTE 


0256 


59 




POP 


CX 


; RECOVER REGISTERS 


0257 


5A 




POP 


DX 




0258 


C3 




RET 




; CY = FROM TEST INSTRUCTION 


0259 






NEC_OUTPUT 


ENDP 





0268 
0268 
026B 
026C 
026E 
0270 
0272 



GET_PARM 

THIS ROUTINE FETCHES THE INDEXED POINTER FROM THE DSKT_BASE 
BLOCK POINTED AT BY THE DATA VARIABLE DISK_POINTER. A BYTE FROM 
THAT TABLE IS THEN MOVED INTO AH, THE INDEX OF THAT BYTE BEING 
THE PARM IN BX 



ENTRY -- 



BX 



INDEX OF BYTE TO BE FETCHED 



EXIT 



AH = THAT BYTE FROM BLOCK 



0259 






GET_PARM 


PROC 


NEAR 




0259 


IE 




PUSH 


DS 




; SAVE SEGMENT 


025A 


2B 


CO 


SUB 


AX, AX 




; ZERO TO AX 


025C 


8E 


D8 


MOV 
ASSUME 


DS,AX 
DSrABSO 






025E 


C5 


36 0078 R 


LDS 


SI,DISK_POINTER 


; POINT TO BLO 


0262 


Dl 


EB 


SHR 


BX,1 




; DIVIDE BX BY 
; FOR EXIT 


0264 


8A 


20 


MOV 


AH,[SI + BX] 




; GET THE WORD 


0266 


IF 




POP 
ASSUME 


DS 
DS:DATA 




; RESTORE SEGM 


0267 


C3 




RET 






; RETURN TO CA 


0268 






GET.PARM 


ENDP 







SEEK 



THIS ROUTINE WILL MOVE THE HEAD ON THE NAMED DRIVE TO THE 
NAMED TRACK. IF THE DRIVE HAS NOT BEEN ACCESSED SINCE THE 
DRIVE RESET COMMAND WAS ISSUED, THE DRIVE WILL BE RECALIBRATED. 
FOR DRIVES 0,1 NO SEEK PERFORMED IF ALREADY ON TRACK 



INPUT 



OUTPUT 



(DL) 
(CH) 

r 

CY 
CY 



= DRIVE TO SEEK ON 
= TRACK TO SEEK TO 



SUCCESS 

1 FAILURE -- 
(AX,DI) DESTROYED 



DISKETTE_STATUS SET ACCORDINGLY 



B8 02EE 
50 

BO 01 
8B F9 
8A CA 
D2 CO 



SEEK 
MOV 
PUSH 
MOV 
MOV 
MOV 
ROL 



PROC NEAR 
AX, OFFSET J32 
AX 

AL,1 
DI.CX 
CL,DL 
AL,CL 



SET ERROR EXIT FOR NEC.OUTPUT 

ESTABLISH MASK FOR RECAL TEST 
SAVE TRACK NUMBER (DI HIGH) 
GET DRIVE VALUE INTO CL 
SHIFT IT BY THE DRIVE VALUE 



0274 
0278 
027A 
027 E 
0281 
0281 



84 06 003E R 
75 IB 

08 06 003E R 
B9 0002 

B4 07 



TEST 
JNZ 
OR 
MOV 
J27A: 
MOV 



AL,SEEK_STATUS ; TEST FOR RECAL REQUIRED 

J28 ; NO_RECAL 

SEEK_STATUS,AL ; TURN ON THE NO RECAL BIT IN FLAG 

CX,02H ; # RECALS ATTEMPTS FOR 80 TRACKS 

AH, RECALIBRATE ; RECALIBRATE COMMAND 
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0283 
0286 
0288 
028B 
028E 
0290 
0292 
0293 



02BF 
02C1 
02C4 
02C6 
02C9 
02CB 
02CE 
02CF 



02D2 
02D3 
02D6 
02D9 
02DC 
02DE 
02E0 
02E0 
02E2 
02E4 
02E7 
02E9 
02EB 
02ED 
02ED 



E8 022C 
8A E2 
E8 022C 
E8 034D 
73 05 
E2 EF 
58 
EB 59 



CALL 

MOV 

CALL 

CALL 

JNC 

LOOP 

POP 

JMP 



NECOUTPUT 

AH,DL 

NEC_OUTPUT 

CHK_STAT_2 

J28 

J27A 

AX 

SHORT J32 



OUTPUT THE DRIVE NUMBER 

GET THE INTERUPT AND SENSE INT STATU! 

RECAL SUCCESSFUL 

RETRY IF MORE THAN 77 STEPS NEEDED 

DISCARD ERROR RETURN ADDRESS 

SEEK_ERROR 



DRIVE IS IN SYNC WITH CONTROLLER, SEEK TO TRACK 



0295 

0295 C6 06 0041 R 

029A 80 FA 01 

029D 77 20 



J28: 



00 



MOV 
CMP 
JA 



DISKETTE_STATUS,0 

DL,01 

J28_3 



; CLEAR DISKETTE STATUS 
; CHECK FOR ABOVE DRIVE 1 



CHECK FOR CURRENT TRACK = DESIRED TRACK 



029F 
02A1 
02A3 
02A5 
02A6 
02A8 
02AB 
02AD 
02AF 
02AF 
02B1 
02B3 
02B5 
02B7 
02 B8 
02BA 



E4 77 
A8 80 

74 1A 
50 

24 E2 
80 FA 00 

75 02 
OC 08 

E6 77 
8B CF 
E4 77 
3A C5 
58 

E6 77 
75 03 



02BC F8 
02BD EB 2F 



B4 OF 
E8 022C 
8A E2 
E8 022C 
8B C7 
E8 022C 
58 
E8 034D 



9C 

BB 0012 
E8 0259 R 
80 FC OF 

73 02 
B4 OF 

OA E4 

74 09 
B9 0102 
E2 FE 
FE CC 
EB F3 



9D 



02EE 

02EE 8B CF 
02 FO C3 
02F1 



IN 

TEST 
JZ 

PUSH 
AND 
CMP 
JNE 
OR 
J28_2: 
OUT 
MOV 
IN 
CMP 
POP 
OUT 
JNE 



AL,DSKT_CNTL 

AL,DSKT_NMI 

J28_3 

AX 

AL,DSKT_NMI+FDC_ 

DL,0 

J28_2 

AL,DRO_TRK_SEL 

DSKT_CNTL,AL 

CX,DI 

AL,DSKT_CNTL 

AL,CH 

AX 

DSKT_CNTL,AL 

J28_3 



; IS DISKETTE CONTROL REG CORRECT? 
; JUMP IF NOT 

.PWR+DSKT_DEGATE+CNTL_SEL ; READ DR1 TRK CTF 



; SET TRACK SENSE FOR DRIVE 

; SELECT DRIVE # FOR TRACK SENSE 

; GET TRACK NUMBER IN CH 

; READ TRACK POSITION 

; COMPARE TRACK ON WITH DESIRED TRACK 

; RESTORE SENSE REGISTER 



ON SAME TRACK SO JUST EXIT WITH NO ERROR 



CLC 
JMP 

J28.3: MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
POP 
CALL 



SHORT J32 



AH,SEEK_CMD 



NECOUTPUT 

AH,DL 

NECOUTPUT 

AX.DI 

NECOUTPUT 

AX 

CHK_STAT_2 



WAIT FOR HEAD SETTLE 



PUSHF 

MOV 

CALL 

CMP 

JAE 

MOV 
J29: 

OR 

JZ 

MOV 

LOOP 

DEC 

JMP 
J31: 

POPF 



BX,18 
GET_PARM 
AH, 15 
J29 
AH, 15 

AH, AH 

J31 

CX,MS_DELAY 

$ 

AH 

SHORT J29 



J32: 

MOV CX 

RET 
SEEK ENDP 



; EXIT 

; SEEK COMMAND TO NEC 

; DRIVE NUMBER 

; TRACK NUMBER 

; DISCARD ERROR RETURN ADDRESS 

; GET ENDING INTERRUPT AND 

; SAVE STATUS FLAGS 

; GET HEAD SETTLE PARAMETER 

; CHECK FOR AT LEAST 15 MSEC 

; SET IT TO 15 IF NOT = OF ABOVE 

; HEAD_SETTLE 

; EXIT LOOP IF NO WAIT 

; DO IT SOME MORE 



SEEK_ERROR 
RESTORE CX 
RETURN TO CALLER 
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DMA_SETUP 

THIS ROUTINE SETS UP THE DMA FOR READ/WRITE/VERIFY OPERATIONS. 
INPUT 

(AL) = MODE BYTE FOR THE DMA 

(ES) - SEGMENT TO READ/WRITE THE DATA 

(BP) - STACK POINTER (TO GET INPUT PARAMETERS) 
OUTPUT 

(AX.CX) DESTROYED 



02F1 








DMA.SETUP 


PROC NEAR 


02F1 


FA 






CLI 




02F2 


E6 


OC 




OUT 


DMA+12,AL ; 


02F4 


EB 


00 




JMP 


$+2 ; 


02F6 


E6 


OB 




OUT 


DMA+ll.AL ; 


02 F8 


50 






PUSH 


AX 


02 F9 


8C 


CO 




MOV 


AX,ES ; 


02FB 


Bl 


04 




MOV 


CL,4 ; 


02FD 


D3 


CO 




ROL 


AX,CL ; 


02FF 


8A 


E8 




MOV 


CH,AL ; 


0301 


24 


FO 




AND 


AL.OFOH ; 


0303 


03 


46 


OC 


ADD 


AX,BXSAVE[BP] ; 


0306 


73 


02 




JNC 


J33 ; 


0308 


FE 


C5 




INC 


CH ; 


030A 








J33: 




030A 


50 






PUSH 


AX ; 


030B 


E6 


04 




OUT 


DMA+4,AL ; 


030D 


8A 


C4 




MOV 


AL,AH 


030F 


E6 


04 




OUT 


DMA+4,AL ; 


0311 


8A 


C5 




MOV 


AL,CH ; 


0313 


24 


OF 




AND 


AL,OFH 


0315 


E6 


81 




OUT 


DMA_PAGE2,AL ; 








; 


DETERMINE COUNT 


0317 


8A 


66 


OE 


MOV 


AH,ALSAVE[BP] ; 


031A 


2A 


CO 




SUB 


AL,AL ; 


031C 


Dl 


E8 




SHR 


AX,1 ; 


031E 


50 






PUSH 


AX 


031F 


BB 0006 


MOV 


BX,6 ; 


0322 


E8 


0259 R 


CALL 


GET_PARM 


0325 


8A 


CC 




MOV 


CL,AH ; 


0327 


58 






POP 


AX 


0328 


D3 


EO 




SHL 


AX,CL ; 


032A 


48 






DEC 


AX ; 


032B 


50 






PUSH 


AX ; 


032C 


E6 


05 




OUT 


DMA+5,AL ; 


032E 


8A 


C4 




MOV 


AL,AH 


0330 


E6 


05 




OUT 


DMA+5,AL ; 


0332 


FB 






STI 




0333 


59 






POP 


cx 1 


0334 


58 






POP 


AX ; 


0335 


03 


CI 




ADD 


AX,CX ; 


0337 


BO 


02 




MOV 


AL,2 ; 


0339 


E6 


OA 




OUT 


DMA+10,AL ; 


033B 


58 






POP 


AX ; 


033C 


73 


OE 




JNC 


DMA_0UT 


033E 


3C 


42 




CMP 


AL,42H ; 


0340 


74 


OA 




JE 


DMA_OUT ; 


0342 


C6 


06 


0041 R 09 


MOV 


DISKETTE_STATUS,DMA_B 


0347 


C6 


46 


OE 00 


MOV 


BYTE PTR [BP+14],0 ; 


034B 


F9 






STC 


; 


034C 








DMA_OUT: 




034C 


C3 






RET 


; 


034D 








DMA_SETUP 


ENDP 



NO MORE INTERRUPTS 

SET THE FIRST/LAST F/F 

DELAY FOR DMA CONTROLLER 

OUTPUT THE MODE BYTE 

SAVE COMMAND 

GET THE ES VALUE 

SHIFT COUNT 

ROTATE LEFT 

GET HIGHEST NYBLE OF ES TO CH 

ZERO THE LOW NYBBLE FROM SEGMENT 

ADD ADDRESS OFFSET 

TEST FOR CARRY FROM ADDITION 

CARRY MEANS HIGH 4 BITS MUST BE INC 

SAVE START ADDRESS 
OUTPUT LOW ADDRESS 

OUTPUT HIGH ADDRESS 
GET HIGH 4 BITS 

OUTPUT THE HIGH 4 BITS TO 



NUMBER OF SECTORS (AL SAVE) 
TIMES 256 INTO AX 
SECTORS * 128 INTO AX 

GET THE BYTES/SECTOR PARM 

USE AS SHIFT COUNT (0=128, 1=256 ETC) 

MULTIPLY BY CORRECT AMOUNT 
-1 FOR DMA VALUE 
SAVE COUNT VALUE 
LOW BYTE OF COUNT 

HIGH BYTE OF COUNT 

INTERRUPTS BACK ON 

RECOVER COUNT VALUE 

RECOVER ADDRESS VALUE 

ADD, TEST FOR 64K OVERFLOW 

MODE FOR 8237 

INITIALIZE THE DISKETTE CHANNEL 

RESTORE COMMAND 



NON-DMA OPERATION? 

IF SO THEN NO BOUNDRY ERROR 



)UNDARY ; SET DMA BOUNDRY ERROR 
NO SECTORS TRANSFERRED (AL SAVE) 
SET CARRY TO INDICATE ERROR 

RETURN TO CALLER, 

CARRY SET BY ABOVE IF ERROR 
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; CHK_STAT_2 




; THIS ROUTINE HANDLES THE INTERRUPT RECEIVED AFTER 


A 


; RECALIBRATE, SEEK, OR RESET TO THE ADAPTER. 




; THE INTERRUPT IS WAITED FOR, THE INTERRUPT STATUS 


SENSED, 


; AND THE RESULT RETURNED TO THE CALLER. 




; INPUT 




NONE 




; OUTPUT 




CY = SUCCESS 




; CY = 1 FAILURE — ERROR IS IN DISKETTE_STATUS 




; (AX) DESTROYED 





034D 








CHK_STAT_ 


_2 PROC NEAR 




034D 


E8 


0373 


R 


CALL 


WAIT_INT 


; WAIT FOR THE INTERRUPT 


0350 


72 


19 




JC 


J34 


; IF ERROR, RETURN IT 


0352 


B8 


036B 


R 


MOV 


AX, OFFSET J34 




0355 


50 






PUSH 


AX 


; SET ERROR RETURN ADDRESS 


0356 


B4 


08 




MOV 


AH,READ_INT_STATUS 


; SENSE INTERRUPT STATUS COMMA 


0358 


E8 


022C 


R 


CALL 


NEC_OUTPUT 




035B 


E8 


03B3 


R 


CALL 


RESULTS 


; READ IN THE RESULTS 


035E 


72 


OB 




JC 


J34 


; CHK2_RETURN 


0360 


58 






POP 


AX 


; DISCARD ERROR RETURN ADDRESS 


0361 


AO 


0042 


R 


MOV 


AL,NEC_STATUS 


; GET THE FIRST STATUS BYTE 


0364 


24 


60 




AND 


AL,060H 


; ISOLATE THE BITS 


0366 


3C 


60 




CMP 


AL,060H 


; TEST FOR CORRECT VALUE 


0368 


74 


02 




JZ 


J35 


; IF ERROR, GO MARK IT 


036A 


F8 






CLC 




; GOOD RETURN 


036B 








J34: 






036B 


C3 






RET 




; RETURN TO CALLER 


036C 








J35: 




; CHK2_ERR0R 


036C 


80 


OE 0041 R 40 


OR 


DISKETTE_STATUS,BAD. 


.SEEK 


0371 


F9 






STC 




; ERROR RETURN CODE 


0372 


C3 






RET 






0373 








CHK_STAT_ 


_2 ENDP 





WAIT_INT 

THIS ROUTINE WAITS FOR AN INTERRUPT TO OCCUR. A TIME OUT 

ROUTINE TAKES PLACE DURING THE WAIT, SO THAT AN ERROR MAY BE 

RETURNED IF THE DRIVE IS NOT READY. 
INPUT 

NONE 
OUTPUT 

CY = SUCCESS 

CY = 1 FAILURE -- DISKETTE_STATUS IS SET ACCORDINGLY 

(AX,BX) DESTROYED 



0373 
0373 
0374 
0375 



0376 
0379 
037B 



037D 
037F 
0381 
0381 
0386 
0388 
038A 
038C 



038E 



B8 9001 
CD 15 
72 11 



WAIT_INT PROC NEAR 
STI 

PUSH CX 
CLC 

CALL DEVICE BUSY SERVICE ROUTINE 



MOV 
INT 
JC 



AX,09001H 

15H 

J36_A 



TURN ON INTERRUPTS, JUST IN CASE 
SAVE REGISTERS 



CALL DEVICE BUSY (DISKETTE) 
JUMP IF TIMEOUT OCCURRED 



BIOS WILL PASS CONTROL HERE WITH CARRY FOR TIMEOUT OR WITH NO CARRY FOR 
OPERATION COMPLETE. 



B3 04 
2B C9 

F6 06 003E R 80 
75 OC 
E2 F7 
FE CB 
75 F3 



MOV 
SUB 
J36: 
TEST 
JNZ 
LOOP 
DEC 
JNZ 



BL,4 
CX,CX 



; WAIT FOR 2 SECONDS 
; CLEAR THE COUNTER 



SEEK_STATUS,INT_FLAG ; TEST FOR INTERRUPT COMPLETE 

J37 ; JUMP IF INTERRUPT COMPLETE 

J36 ; INNER LOOP COUNT 

BL 

J36 ; OUTER LOOP COUNT 



NO INTERRUPT RECEIVED TIMEOUT ERROR 
J36_A: 
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038E 


80 


0E 


0041 


R 


80 


OR 


0393 


F9 










STC 


0394 












J37: 


0394 


9C 










PUSHF 


0395 


80 


26 


003E 


R 


7F 


AND 


039A 


9D 










POPF 


039B 


59 










POP 


039C 


C3 










RET 


039D 












WAIT_INT 



DISKETTE_STATUS,TIME_OUT; NO INTERRUPT OCCURRED ERROR 
; ERROR RETURN 

; SAVE CURRENT CARRY 
SEEK_STATUS,NOT INT.FLAG ; TURN OFF INTERRUPT FLAG 

; RECOVER CARRY 
CX 

; GOOD RETURN CODE COMES 

; FROM TEST INST 
ENDP 



DSKT_ 


.INTE 
















THIS 


ROUTINE 


HANDLES 


THE 


DISKETTE 


INTERRUPT 


INPUT 


NONE 














OUTPUT 
















THE 


INTERRUPT 


FLAG IS 


SET 


IS 


SEEK_STATUS 



039D 








DSKT.INTE 


PROC 


FAR 




039D 


IE 






PUSH 


DS 






039E 


50 






PUSH 


AX 






039F 


E8 


0000 


E 


CALL 


DDS 




SET UP DATA SEGMENT 


03A2 


80 


OE 003E R 80 


OR 


SEEK_STATUS 


INT_FLAG 




03A7 


BO 


20 




MOV 


AL,EOI 




END OF INTERRUPT MARK 


03A9 


E6 


20 




OUT 


INTAOO,AL 




INTERRUPT CONTROL POR 


03AB 


B8 


9101 




MOV 


AX,09101H 




SIGNAL DEVICE OPERATI 


03AE 


CD 


15 




INT 


15H 






03 BO 


58 






POP 


AX 






03B1 


IF 






POP 


DS 


• 


RECOVER SYSTEM 


03B2 


CF 






IRET 






RETURN FROM INTERRUPT 


03B3 








DSKT_INTE 


ENDP 







; RESULTS 














; THIS 


ROUTINE WILL READ ANYTHING 


THAT THE NEC 


CONTROLLER 


HAS 


; TO SAY 


FOLLOWING AN INTERRUPT. 










; INPUT 














; NONE 














; OUTPUT 














; CY = 





SUCCESSFUL TRANSFER 










; CY = 


1 


FAILURE -- TIME OUT IN 


WAITING 


FOR STATUS 




; NEC_ 


STATUS AREA HAS STATUS BYTE 


LOADED 


INTO 


IT 




(AH, 


BX 


SI) DESTROYED 











03B3 






RESULTS 


PROC NEAR 






03B3 


FC 




CLD 








03B4 


BE 


0042 R 


MOV 


SI, OFFSET NEC_STATUS 


; POINTER TO DATA 


03B7 


51 




PUSH 


CX 


; 


SAVE COUNTER 


03B8 


52 




PUSH 


DX 






03B9 


B3 


07 


MOV 


BL,7 


i 


MAX STATUS BYTES 






; — 


-- WAIT FOR REQUEST FOR MASTER 






03BB 






J38: 






INPUT_LOOP 


03BB 


33 


C9 


XOR 


CX,CX 




COUNTER 


03BD 


BA 


03 F4 


MOV 


DX,FDC_STATUS 


j 


STATUS PORT 


03C0 






J39: 




• 


WAIT FOR MASTER 


03C0 


EC 




IN 


AL,DX 




GET STATUS 


03C1 


A8 


80 


TEST 


AL,REQ_MASTER 




MASTER READY 


03C3 


75 


OB 


JNZ 


J40A 




TEST_DIR 


03C5 


E2 


F9 


LOOP 


J39 




WAIT.MASTER 


03C7 


80 


OE 0041 R 


80 OR 


DISKETTE_STATUS 


TIME_OUT 


03CC 






J40: 






RESULTS_ERROR 


03CC 


F9 




STC 






SET ERROR RETURN 


03CD 


5A 




POP 


DX 






03CE 


59 




POP 


CX 






03CF 


C3 




RET 
-- TEST THE [ 


)IRECTION BIT 
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O3D0 






J40A: 








03D0 


EC 




IN 


AL,DX 




GET STATUS REG AGAIN 


03D1 


A8 


40 


TEST 


AL,DATA_ 


READY 


TEST DIRECTION BIT 


03D3 


75 


07 


JNZ 


J42 




OK TO READ STATUS 


03D5 






J41: 






NEC_FAIL 


03D5 


80 


OE 0041 


R 20 OR 


DISKETTE. 


.STATUS, BAD_NEC 


03DA 


EB 


FO 


JMP 


J40 




RESULTS.ERROR 






;• 


READ IN THE STATUS 






03DC 






J 42: 






INPUT_STAT 


03DC 


42 




INC 


DX 




POINT AT DATA PORT 


03DD 


EC 




IN 


AL,DX 




GET THE DATA 


03DE 


88 


04 


MOV 


[SI],AL 




STORE THE BYTE 


03E0 


46 




INC 


SI 




INCREMENT THE POINTER 


03E1 


B9 


OOOA 


MOV 


CX,10 




LOOP TO KILL TIME FOR NEC 


03E4 


E2 


FE 


J 43: 


LOOP J43 






03E6 


4A 




DEC 


DX 




POINT AT STATUS PORT 


03E7 


EC 




IN 


AL,DX 




GET STATUS 


03E8 


A8 


10 


TEST 


AL,FDC_BUSY 


TEST FOR NEC STILL BUSY 


03 EA 


74 


06 


JZ 


J44 




RESULTS DONE 


03EC 


FE 


CB 


DEC 


BL 




DECREMENT THE STATUS COUNTER 


03EE 


75 


CB 


JNZ 


J38 




GO BACK FOR MORE 


03 F0 


EB 


E3 


JMP 


J41 




CHIP HAS FAILED 






; 


RESULT OPERATION IS DONE 




03F2 






J44: 








03 F2 


5A 




POP 


DX 






03 F3 


59 




POP 


CX 




RECOVER REGISTERS 


03 F4 


C3 




RET 






GOOD RETURN CODE FROM TEST I 


03F5 






RESULTS 


ENDP 







NUM_TRANS 

THIS ROUTINE CALCULATES THE NUMBER OF SECTORS THAT 

WERE ACTUALLY TRANSFERRED TO/FROM THE DISKETTE 
INPUT 

(BP) = POINTER TO ORIGINAL STACK ENTRIES 
OUTPUT 

(BP+14) = AL SAVE AREA ON STACK = # ACTUALLY TRANSFERRED 

NO OTHER REGISTERS MODIFIED 



03F5 






NUM_TRANS 


PROC NE) 


03F5 


BB 


0008 


MOV 


BX,8 


03 F8 


E8 


0259 R 


CALL 


GET_PARM 


03FB 


AO 


0047 R 


MOV 


AL,NEC_STATUS+5 


03FE 


8A 


7E 01 


MOV 


BH,DHSAVE[BP] 


0401 


3A 


3E 0046 R 


CMP 


BH,NEC_STATUS+4 


0405 


75 


OB 


JNZ 


DIF_HD 


0407 


8A 


3E 0045 R 


MOV 


BH,NEC_STATUS+3 


040B 


3A 


7E OB 


CMP 


BH,CHSAVE[BP] 


040E 


74 


04 


JZ 


SAME_TRK 


0410 


02 


C4 


ADD 


AL,AH 


0412 






DIF_HD: 




0412 


02 


C4 


ADD 


AL,AH 


0414 






SAME_TRK: 




0414 


2A 


46 OA 


SUB 


AL,CLSAVE[BP] 


0417 


88 


46 OE 


MOV 


ALSAVE[BP],AL 


041A 


C3 




RET 




041B 






NUM_TRANS 


ENDP 



SECTORS/TRACK OFFSET TO DL 

AH = SECTORS/TRACK 

GET ENDING SECTOR 

BH = STARTING HEAD # 

GET HEAD ENDED UP ON 

IF ON SAME HEAD, THEN NO ADJUS 

GET TRACK ENDED UP ON 

SEE IF TRACK SWITCH 

IF SAME TRACK NO INCREASE 

ADD SECTORS/TRACK 

ADD SECTORS/TRACK 

SUBTRACT START FROM END SECTORS 
SAVE RESULTS IN STACK SAVE AREA 
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041B 



041B B6 00 



M0T0R_STARTUP 

FUNCTION: TO CHECK FOR MOTOR STATE, TURN ON MOTOR OF REQUESTED DRIVE 
AND WAIT THE NECESSARY STARTUP TIME BEFORE RETURNING 
TO CALLER. 

INPUT PARAMETERS: 

DL = 0-3 (DISKETTE DRIVE NUMBER) 
OUTPUT PARAMETERS: 

MOTOR_STATUS FLAGS UPDATED 

MOTOR OF DRIVE IS TURNED ON 
REGISTERS MODIFIED: AX,BX,CX,DH 



MOTOR_STARTUP PROC 



NEAR 



TURN ON THE MOTOR AND SELECT THE DRIVE 



MOV 



DH,0 



; SET FIRST TIME THROUGH FLAG 



041D 



041D 
0420 
0423 
0426 
0428 
042A 
042A 
042C 
042E 
0430 



M0T_01: 



GET MOTOR STARTUP TIME 



BB 0014 
E8 0259 R 
80 FC 04 
73 02 
B4 04 

8A EC 
8A CA 
BO 01 
D2 EO 



MOV 
CALL 
CMP 
JAE 
MOV 
MOTJJll: 
MOV 
MOV 
MOV 
SAL 



BX,20 
GET.PARM 
AH, 04 
M0T_011 
AH, 04 

CH,AH 
CL,DL 
AL,1 
AL,CL 



GET THE MOTOR WAIT 

CH HAS MOTOR START UP DELAY 

MUST BE MINIMUM OF 500 MSECS 

JUMP IF OKAY 

DEFAULT TIME TO 500 MSECS 

SAVE MOTOR START UP DELAY 
GET DRIVE NUMBER AS SHIFT COUNT 
MASK FOR DETERMINING MOTOR BIT 
SHIFT THE MASK BIT 



0432 FA 



0433 
0437 



0439 
043E 
0442 
0444 
0446 
0448 
044A 
044C 
044D 
0450 
0451 
0452 



84 06 003F R 
75 IB 



CLI 



TEST 
JNZ 



TURN ON MOTOR 



80 26 003 F R FO 

08 06 003F R 

BO 10 

8A CA 

D2 EO 

OA C2 

OC OC 

52 

BA 03 F2 

EE 

5A 

EB 07 



AND 

OR 

MOV 

MOV 

SAL 

OR 

OR 

PUSH 

MOV 

OUT 

POP 

JMP 



AL,MOTOR_STATUS 
M0T_02 



MOTOR_STATUS,OFOH 

MOTOR_STATUS,AL 

AL,10H 

CL,DL 

AL,CL 

AL,DL 

AL,FDC_DMA_ENAB+FDC_ 

DX 

DX,DRIVE_CNTL 

DX,AL 

DX 

SHORT M0T_04 



NO INTERRUPTS WHILE DETERMINING 
MOTOR STATUS 

TEST THAT MOTOR FOR OPERATING 
IF RUNNING GO CHECK TIME 



TURN OFF ALL MOTOR BITS 

TURN ON THE CURRENT MOTOR 

MASK BIT 

GET DRIVE NUMBER AS SHIFT COUNT 

DEVELOP BIT MASK FOR MOTOR ENABLE 

GET DRIVE SELECT BITS IN 

.RUN ; NO RESET, ENABLE DMA/INT 

; SAVE REG 

; CONTROL PORT ADDRESS 

; RECOVER REGISTERS 
; GO DELAY FOR STARTUP 



CHECK TO SEE IF MOTOR ON LONG ENOUGH 



0454 M0T_02 : 

0454 F6 06 003F R 20 TEST 
0459 75 24 JNZ 



M0T_08 
CH HAS TIME TO WAIT IN 1/8 SECONDS 



MOTOR_STATUS,MOTOR_OK ; CHECK FOR MOTOR RUNNING LONG ENOUGH 
; IF MOTOR OKAY THEN EXIT 



045B M0T_04: 

045B C6 06 0040 R FF MOV 

0460 FB STI 

0461 OA ED OR 
0463 74 1A JZ 
0465 OA F6 OR 
0467 75 08 JNZ 



M0T0R_C0UNT,0FFH 

CH,CH 
M0T_08 
DH,DH 
MOT_06 



SET LONG MOTOR DELAY 

INTERRUPTS BACK ON 

DON'T WAIT IF NO WAIT SET 

CHECK FOR FIRST TIME THROUGH WAIT 
IF NOT FIRST TIME BYPASS OP_SYS HOOK 



0469 F8 



NOTIFY OPERATING SYSTEM OF WAIT FOR MOTOR STARTUP 

CLC : RESET TIMEOUT INDICATOR 
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046A B8 90FD 
046D CD 15 
046F 72 OE 



0471 
0471 
0473 
0475 
0475 
0477 
0479 
047B 
047D 



047F 
047F 
0484 
0486 
048B 



MOV 
INT 
JC 



AX,90FDH 

15H 

M0T_08 



SET WAIT ON DISKETTE MOTOR 
SLEEP OR DO OTHER WORK 
BYPASS TIME DELAY IF TIMEOUT 



TIME DELAY LOOP TO WAIT FOR MOTOR STARTUP 



8A E5 
OA E4 

74 08 
2B C9 
E2 FE 
FE CC 
EB F6 



M0T_06: 
MOV 
OR 

M0T_07 : 
JZ 
SUB 
LOOP 
DEC 
JMP 



AH.CH 
AH, AH 

M0T_08 

CX,CX 

$ 

AH 

SHORT M0T_07 



MOVE TIME IN AH 

TEST FOR NO WAIT 

TEST_WAIT_TIME 

EXIT WITH TIME EXPIRED 

SET UP 1/8 SECOND LOOP TIME 

WAIT FOR THE REQUIRED TIME 

DECREMENT TIME VALUE 

ARE WE DONE YET 



MOTOR IS RUNNING SO CONTINUE WITH OPERATION 



C6 06 0040 

B6 01 

F6 06 003F 

74 90 



R FF 



R OF 



M0T_08: 
MOV 
MOV 
TEST 
JZ 



MOTOR_COUNT,OFFH 
DH.01 

MGTOR_STATUS,OFH 
M0T_01 



SET LARGE COUNT AFTER WAIT 

SET 2ND TIME THROUGH FLAG 

TEST FOR MOTORS STILL ON 

IF NOT OKAY THEN GO BACK AND RESTART 



MOTORS STILL ON AFTER WAIT 



048D 80 OE 003F R 

0492 FB 

0493 C3 
0494 



20 



OR 

STI 
RET 
MOTOR_STARTUP ENDP 



M0TOR_STATUS,M0TOR_0K ; SET MOTOR ON LONG ENOUGH FLAG 
; ALLOW INTERRUPTS 



READ DISKETTE DRIVE PARAMETERS ROUTINE 



0494 
0494 
0497 
0499 
049B 
049D 
049F 
04A1 
04A3 
04A5 
04A8 
04AA 
04AC 
04AF 
04B1 
04B3 
04B3 
04B6 
04BA 
04BE 
04C2 
04C2 
04C5 
04C8 
04CB 
04CD 
04D0 
04D4 
04D6 
04D8 
04DA 
04DD 
04 E2 
04E3 



E8 0586 
2B FF 
2B C9 
2B D2 
8E C2 
8A E6 
3C 00 
74 ID 
BE 0000 
3C 03 

74 07 
BE 0000 
3C 01 

75 OF 



8E 04 

8B 7C 02 

8B 4C 04 

8B 54 06 



89 7E 04 

89 4E OA 

89 46 OC 

2B CO 

89 46 OE 

8A 16 0010 R 

Bl 06 

D2 EA 

FE C2 

89 56 00 

C6 06 0041 R 00 

C3 



DSKT_RDPARM 



PROC 



NEAR 



CALL GET_DRV_CONFIG 

SUB DI.DI 

SUB CX,CX 

SUB DX,DX 

MOV ES,DX 

MOV AH,DH 

CMP AL,NO_DRIVE 

JE RDPARM_02 

MOV SI, OFFSET PARMS_TPI135 

CMP AL,TPI_135 

JE RDPARM_01 

MOV SI, OFFSET PARMS_TPI48 

CMP AL,TPI_48 

JNE RDPARM_02 
RDPARM_01: 

MOV ES,CS 

MOV DI,CS 

MOV CX,CS 

MOV DX,CS 
RDPARM_02: 

MOV 

MOV 



[SI] 
[SI+2] 
[SI +4] 
[SI+6] 



MOV 
SUB 
MOV 
MOV 
MOV 
SHR 
INC 
MOV 
MOV 
RET 
DSKT_RDPARM 



DISAVE[BP],DI 

CXSAVE[BP],CX 

BXSAVE[BP],AX 

AX, AX 

AXSAVE[BP],AX 

DL,BYTE PTR EQUIP_FLAG 

CL,6 

DL,CL 

DL 

DXSAVE[BP],DX 

DISKETTE_STATUS,0 



GET DRIVE CONFIGURATION IN AL 
CLEAR REGISTERS 



CLEAR ES 
CLEAR AH 
DRIVE PRESENT? 

; SET 720K DRIVE 

SET 360K DRIVE 

IF NOT VALID SET NO DRIVE 

SETUP SEG TO DSKT_PARMS 
POINTER TO PARMS 
TRACKS AND SECTORS 
GET HEADS 

MODIFY REGISTERS ON STACK 

SET DRIVE TYPE IN BL 

CLEAR AL 

; GET LOW BYTE OF EQUIPMENT 
GET # DISKETTES IN LOW 
BITS 

CORRECT FOR AT LEAST 1 DRIVE 
SAVE # HEADS AND # DRIVES 
GET RETURN CODE 



ENDP 
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DSKT_READDASD 



INPUT PARAMETERS: 

AH = 15H 

DL = DRIVE NUMBER (0-3) 
OUTPUT PARAMETERS: 

AH = 00 - NO DRIVE PRESENT 

01 - DISKETTE DRVIE WITH NO CHANGE LINE SUPPORT INSTALLED 

02 - DISKETTE DRIVE WITH CHANGE LINE SUPPORT INSTALLED 

03 - FIXED DISK 
DISKETTE_STATUS = 



04E3 

04E3 80 OE 0016 R 04 



DSKT_RDDASD 



PROC 



NEAR 



04E8 
04ED 
04F0 
04F2 
04F4 
04F6 
04F8 



04 FA 
04FC 



04FF 
04FF 
0501 
0501 
0504 
0507 
0508 
050B 



C6 06 0041 
E8 0586 R 
B4 00 
3C 00 
74 OB 
3C 03 
74 05 



B4 01 
EB 03 90 



B4 02 

88 66 OF 

83 C4 02 

F8 

E9 0071 R 



R 00 



OR 

MOV 

CALL 

MOV 

CMP 

JE 

CMP 

JE 



BIOS_STATUS,DCL_SUPPORTED ; SET CHANGE LINE 



DISKETTE_STATUS,0 

GET_DRV_CONFIG 

AH,0 

AL,NO_DRIVE 

DASD_EXIT 

AL,TPI_135 

DASD_01 



SET NO CHANGE LINE AVAILABLE 

MOV AH, 01 
JMP DASD_EXIT 

SET CHANGE LINE AVAILABLE 

DASD_01: 

MOV AH, 02 
DASD_EXIT: 

MOV AHSAVE[BP],AH 

ADD SP,2 

CLC 

JMP DI0_3 
DSKT_RDDASD ENDP 



SUPPORTED FLAG 
SET GOOD RETURN CODE 
GET DRIVE CONFIGURATION 
CLEAR RETURN CODE 
CHECK FOR DRIVE PRESENT 
JUMP IF NOT PRESENT 
3 1/2 DRIVES? 
YES THEN JUMP 



SET NO CHANGE LINE AVAIL 



CHANGE LINE AVAILABLE 



SAVE VALUE IN AH SAVE AREA 
THROW AWAY RETURN ADDRESS 



GO BACK TO MAIN ROUTINE 



******************************************************************* 

DISKETTE CHANGE LINE STATUS ROUTINE 
******************************************************************* 



050B 
050B 
050E 
0510 
0512 
0514 
0516 



0519 
0519 
051A 
051D 
051E 
0521 
0522 
0523 
0525 
0527 
052C 



052E 
052E 
0533 
0534 



E8 0586 R 
OA CO 

74 41 
3C 03 

75 63 

E8 041B R 



DSKT_CHANGE 
CALL 
OR 
JZ 
CMP 
JNE 
CALL 



PROC 



NEAR 



GET_DRV_CONFIG 

AL,AL 

DCL_06 

AL,TPI_135 

DCL_10 

MOTOR_STARTUP 



CHECK CHANGE LINE 



DCL_01: 

52 PUSH DX 

BA 03 F4 MOV DX, FDC_STATUS ; 

EC IN AL,DX 

BA 03F7 MOV DX,DRIVE_SENSE ; 

EC IN AL,DX 

5A POP DX ; 

A8 80 TEST AL,CHG_LINE ; 

75 OF JNZ DCL_03 ; 

F6 06 0016 R 02 TEST BIOS_STATUS,FORCE_DCL 

75 2C JNZ DCL_07 



CHANGE LINE NOT ACTIVE 



GET DRIVE CONFIGURATION 

CHECK FOR DRIVE NO THERE 

IF SO THEN SET TIMEOUT STATUS 

CHECK FOR 3.5 

JUMP IF NO CHANGE LINE 

TURN ON MOTOR AND SELECT 



ENSURE CONTROLLER IS ON 

DIGITAL INPUT PORT 

RESTORE DRIVE NUMBER 

TEST FOR DISKETTE CHANGE 

JUMP IF ACTIVE 

; FORCE CHANGE ERROR 

AFTER RESUME? - JUMP IF YES 



C6 06 0041 R 00 

F8 

EB 49 



DCL_02 : 
MOV 
CLC 
JMP 



DISKETTE_STATUS,0 
SHORT DCL_EXIT 



SET GOOD RETURN 
RESET ERROR FLAG 
RETURN 



; CHANGE LINE ACTIVE 



ROM BIOS 2-137 



SEEK TO 1 THEN TO TO RESET CHANGE LINE 



0536 
0536 
0538 
053B 
053D 
053F 
0542 



0544 
0544 



0549 
0549 
054A 
054D 
054E 



B5 01 

E8 0268 R 

72 07 
B5 00 

E8 0268 R 

73 05 



DCL_03: 
MOV 
CALL 
JC 
MOV 
CALL 
JNC 



CH,01H 

SEEK 

DCL.04 

CH,00H 

SEEK 

DCL_05 



SEEKS FAILED SO SET RECAL REQUIRED 



C6 06 003E R 00 



DCL_04: 
MOV 



SEEK_STATUS,0 



SET UP TO SEEK TO TRACK 1 
TO RESET CHANGE LINE 
JUMP IF ERROR ON THE SEEK 
NOW SET TO SEEK TO ZERO 
DO THE SEEK 



; SEEK FAILED RECAL REQUIRED 



52 

BA 03 F7 

EC 

5A 



CHECK TO SEE IF CHANGE LINE WAS SUCCESSFULLY RESET 



DCL_05: 
PUSH 
MOV 
IN 
POP 



DX 

DX,DRIVE_SENSE 

AL,DX 

DX 



; DIGITAL INPUT PORT 
; RESTORE DRIVE NUMBER 



054F 
0551 



0553 
0553 
0558 



055A 
055A 
055F 
0561 
0565 



A8 80 
74 07 



TEST 
JZ 



AL,CHG_LINE 
DCL_07 



; TEST FOR DISKETTE CHANGE 
; IF RESET THEN MEDIA CHANGE 



CHANGE LINE DID NOT RESET SO SET TIMEOUT ERROR 



C6 06 0041 R 80 
EB 17 



DCL_06: 
MOV 
JMP 



DISKETTE_STATUS,TIME_OUT ; NO DISKETTE IN DRIVE 
SHORT DCL_09 ; EXIT WITH TIMEOUT ERROR 



MEDIA CHANGE WAS ACTIVE, AND RESET SUCCESSFULLY, IF CHANGE LINE NOT 
SUPPORTED AND NO READ DCL STATUS DON'T REPORT THE ERROR 



F6 06 0016 R 04 
75 06 

80 7E OF 16 
75 C7 



DCL_07 : 
TEST 
JNZ 
CMP 
JNE 



BIOS_STATUS,DCL_SUPPORTED ; CHANGE LINE SUPPORTED 



DCL_08 

AHSAVE[BP],16H 

DCL_02 



JUMP IF YES 

FUNCTION = READ DCL STATUS? 

NO THEN INDICATE INACTIVE 



0567 
0567 
056C 



80 26 0016 R FD 
C6 06 0041 R 06 



DCL_08: 
AND 
MOV 



BIOS_STATUS,NOT FORCE_DCL ; RESET RESUME FLAG 
DISKETTE_STATUS,MEDIA_CHANGE ; SET RETURN CODE 



0571 
0571 



0576 
0577 



0579 
0579 
057E 



80 26 003F R DF 



F9 
EB 06 



DCL_09: 
AND 



STC 
JMP 



M0T0R_STATUS,N0T M0T0R_0K ; ACTIVATE STARTUP DELAY 
ON NEXT OPERATION 
SET INTERNAL ERROR FLAG 

SHORT DCL_EXIT ; RETURN TO CALLER 



NO CHANGE LINE AVAILABLE 

(NOT AN INTERNAL FLAGGED ERROR) 



C6 06 0041 R 06 
F8 



DCL_10: 
MOV 
CLC 



DISKETTE_STATUS,MEDIA_CHANGE ; DEFAULT TO DISKETTE CHG 
; RESET INTERNAL ERROR FLAG 



057F 
057F 
0580 



DCL_EXIT: 

RET 
DSKT_CHANGE 



RETURN TO CALLER 



ENDP 



*********************************** 

SET DASD TYPE FOR FORMAT 
*********************************** 



0580 

0580 C6 06 0041 R 00 

0585 C3 

0586 



DSKT_SETDASD PROC NEAR 
MOV DISKETTE_STATUS,0 
RET 

DSKT.SETDASD ENDP 



SET OKAY RETURN CODE 



2-138 ROM BIOS 



0586 



******************************************** 
GET_DRV_C0NFIG 
GET DRIVE INFORMATION SUBROUTINE 

INPUT CONDITIONS: DL = DRIVE NUMBER 0-3 
OUTPUT CONDITIONS: AL (LOW NIBBLE CONTAINS DRIVE TYPE) 
CARRY FLAG SET IF DRIVE # OUT OF RANGE 

REGISTERS MODIFIED: AX,BX,CX 
******************************************** 

GET_DRV_CONFIG PROC NEAR 



0586 


B4 


10 


MOV 


AH,RTC_DSKT_CON 




0588 


E8 


0000 E 


CALL 


GET_RTC_REG 


GET DRIVE INFORMATION 


058B 


8A 


F8 


MOV 


BH,AL 


DRIVE 0,1 IN BH 


058D 


FE 


C4 


INC 


AH 




058F 


E8 


0000 E 


CALL 


GET_RTC_REG 


DRIVE 2,3 IN AL 


0592 


8A 


E7 


MOV 


AH,BH 


DRIVE 0-3 INFO IN AX (NIBBLES 


0594 


Bl 


03 


MOV 


CL,3 


SET SHIFT COUNT 


0596 


2A 


CA 


SUB 


CL,DL 


SUBTRACT DRIVE NUMBER 


0598 


74 


06 


JZ 


GET_DRV01 




059A 


DO 


El 


SHL 


CL,1 


MULTIPLY BY 4 (BITS/ DRIVE) 


059C 


DO 


El 


SHL 


CL,1 




059E 


D3 


E8 


SHR 


AX,CL 


SHIFT TO GET DRIVE INFO 


05A0 






GET_DRV01: 






05A0 


24 


OF 


AND 


AL,OFH 


SAVE ONLY LOW NIBBLE 


05A2 


C3 




RET 






05A3 






GET_DRV...CONFIG ENDP 





Bootstrap Loader Interrupt Hex 19 
(SYS-BOOT) 



— INT 19H — 

BOOT STRAP LOADER 

TRACK 0, SECTOR 1 IS READ INTO THE 
BOOT LOCATION (SEGMENT 0, OFFSET 7C00) 
AND CONTROL IS TRANSFERRED THERE. 

IF THERE IS A HARDWARE ERROR CONTROL IS 
TRANSFERRED TO THE ROM BASIC ENTRY POINT. 



ASSUME CS : ROMCODE , DS : DATA, ES : ABSO 



05A3 








SYS_BOOT PROC NEAR 


05A3 


FC 






CLD 
FORCE DCL SUPPORT 


FOR BOOTSTRJ 


05A4 


B8 





r' 


MOV 


AX, DATA 


05A7 


8E 


D8 




MOV 


DS,AX 


05A9 


E8 


0000 


E 


CALL 


DSP_INIT 


05AC 


E8 


0000 


E 


CALL 


RES_ERR_CHK 


05AF 


75 


4C 




JNZ 


Hl_3 


05B1 








RETRY.BOOT 




05B1 


FB 






STI 




05B2 


2B 


CO 




SUB 


AX, AX 


05B4 


8E 


CO 




MOV 
RESET THE DS 


ES,AX 
KT PARAMETER 



; SET FORWARD DIRECTION 



CLEAR THE SCREEN 



CHECK AND DISPLAY RESUME ERRORS 
JUMP IF ANY RESUME ERRORS 



ENABLE INTERRUPTS 
ESTABLISH ADDRESSING 



ROM BIOS 2-139 



05B6 
05BD 



05C2 
05C5 
05C8 
05CA 



05CC 
05CF 
05CF 
05D0 
05D0 
05D2 
05D4 
05D6 
05D7 



C7 06 0078 R 0000 E 
8C 0E 007A R MOV 



MOV WORD PTR DISICPOINTER, 

WORD PTR DISK_P0INTER+2,CS 



OFFSET DSKT.BASE 



CLEAR THE BOOT LOCATION (256 WORDS) 



B9 0100 
BF 7C00 
2B CO 
F3/ AB 



B9 0002 

51 

B4 00 
CD 13 
73 06 
59 
E2 F6 



MOV 
MOV 
SUB 
REP 


CX,256 
DI, OFFSET 
AX, AX 
STOSW 


BOOT. 


_LOCN 




) SYSTEM 


FROM DISKETTE 






MOV 


CX,2 






, RETRY COUNTER 


PUSH 


CX 








MOV 
INT 
JNC 


AH,0 

13H 

Hl_l 






, RESET THE DISKETTE SYSTEM 

, DISKETTE_IO 

, IF ERROR, TRY AGAIN 



05D9 EB 7C 90 

05DC 

05DC B8 0201 

05DF 2B D2 

05E1 BB 7C00 R 



05E4 
05E7 
05E9 
05EA 
05EC 
05EF 
05EF 
05F1 
05F3 
05F6 
05F8 
05FA 
05FD 
05FD 
0602 
0604 



0607 
0607 
060C 
060C 
060F 
0612 
0615 
0615 
0618 
061B 
061E 
0621 
0624 
0627 
0627 
0629 



062C 
062C 
062D 
0630 
0633 
0636 
0637 
0639 



B9 0001 
CD 13 
59 

72 03 
EB 76 90 

B4 16 
CD 13 
F6 C4 80 
75 05 
E2 D5 
E9 068C R 

F6 06 0016 R 10 
74 03 
EB 51 90 



HO: 



HI: 



POP 
LOOP 

JMP 
Hl_l: 
MOV 
SUB 
MOV 

MOV 

INT 

POP 

JC 

JMP 

Hl_2: 
MOV 
INT 
TEST 
JNZ 
LOOP 
JMP 

Hl_3: 
TEST 
JZ 
JMP 



SHOW DISKETTE 



80 26 0016 R EF 

BA 1200 
BD 0000 E 
E8 06BE R 



BA 011F 
BD 0000 E 
E8 06BE R 
BA 0E21 
BD 0000 E 
E8 06BE R 

B3 05 

E8 06C4 R 



52 

BA 011F 

BD 0000 E 

E8 06BE R 

5A 

FE CE 

80 FE 06 



H2_l: 
AND 

H3: 
MOV 
MOV 
CALL 

H3_l: 
MOV 
MOV 
CALL 
MOV 
MOV 
CALL 

H3_2 : 
MOV 
CALL 



CX 
HO 

HBASIC 

AX,201H 

DX,DX 

BX, OFFSET B00T_L0CN 

CX,1 

13H 

CX 

Hl_2 

H4 

AH,16H 

13H 

AH,TIME_OUT 

Hl_3 

HO 

H10 



IF RETRY EXCEEDS TWO THEN BASIC 



READ IN THE SINGLE SECTOR 
TO THE BOOT LOCATION 

DRIVE 0, HEAD 

SECTOR 1, TRACK 

DISKETTE_I0 

GET RETRY COUNT 

GO CHECK BOOT IF READ OKAY 



CHECK FOR NO MEDIA IN DRIVE BY 

CHECKING CHANGE LINE 

CHECK FOR NO MEDIA IN DRIVE 

IF NO MEDIA THEN SHOW ICON 

ELSE GO RETRY ERROR 

RETRY EXCEEDED GO SHOW BAD DISKETTE 



BI0S_STATUS,B00T_F1HIT ; DID THE USER INDICATE BASIC OPTIOI 
H2_l ; JUMP IF NOT 

HBASIC ; EXIT TO BASIC 



BIOS_STATUS,NOT BOOT.FIHIT ; RESET Fl KEY HIT FLAG 

DX,1200H ; DX POINTS TO DISPLAY POSITION 

BP, OFFSET F1_IC0N ; POINT THE Fl ICON 
DSPY_ICON 

DX,011FH ; DX POINTS TO DISPLAY POSITION 

BP, OFFSET SYS_DSKT_ICON ; POINT TO THE DISKETTE ICON 

DSPY_ICON 

DX,0E21H ; DX POINTS TO DISPLAY POSITION 

BP, OFFSET DSKT.ICON ; POINT TO THE DISKETTE ICON 

DSPY.ICON 



BL,05 
KEY_WAIT 



SET TIMEOUT TO 275 MSECS 
WAIT FOR Fl KEY OR TIME 



WAIT TIMEOUT OR Fl KEY OCCURRED 



TO: 



PUSH DX ; SAVE DISKTETTE POINTER 

MOV DX,011FH ; DX POINTS TO DISPLAY POSITION 

MOV BP, OFFSET SYS_DSKT_ICON ; POINT TO THE DISKETTE ICON 

CALL DSPY_ICON 

POP DX 

DEC DH 

CMP DH,06H 
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063C 74 08 

063E BD 0000 E 

0641 E8 06BE R 

0644 EB El 



JE T0_1 

MOV BP, OFFSET DSKT_ICON 

CALL DSPY_ICON 

JMP H3_2 



YES THEN REDISPLAY ICONS 
OTHERWISE JUST MOVE DISKETTE 



WAIT AGAIN 



0646 
0646 
064B 
064D 
064F 
0652 



CHECK FOR Fl HIT AND IF SO THEN RETRY DISKETTE 



T0_1: 



F6 06 0016 R 10 TEST BI0S_STATUS,B00T_F1HIT ; Fl KEY WAS HIT? 

75 07 JNZ T0_3 ; NO THEN KEEP DISPLAYING ICONS 

B3 14 MOV BL,20 ; DELAY LONGER FOR NO DISKETTE 

E8 06C4 R CALL KEY_WAIT ; WAIT TIME 

EB CI JMP SHORT H3_l ; GO RE DISPLAY ICONS 



0654 E9 05B1 R 



T0_3 : 



JMP 



RETRY_BOOT 



GO RETRY BOOT 



USER WANTS BASIC OR CONTROLLER FAILURE 



0657 HBASIC: 

0657 80 26 0016 R EF AND 

065C E8 0000 E CALL 

065F E8 0000 E CALL 

0662 CD 18 INT 



BIOS_STATUS,NOT B00T_F1HIT ; RESET Fl HIT FLAG 



DSP_INIT 

DSP.FSETM 

18H 



CLEAR THE DISPLAY 

SET MODE TARGET DISPLAY 

GO TO RESIDENT BASIC 



IPL WAS SUCCESSFUL 

NOW CHECK BOOT.LOCN FOR NON ZERO DATA 



0664 




0664 


BF 7C00 R 


0667 


B9 OOOA 


066A 


26: Al 7C00 R 


066E 


OB CO 


0670 


74 1A 


0672 


; NO 

83 C7 02 


0675 


26: 3B 05 


0678 


El F8 


067A 


74 10 


067C 


80 26 0016 R 



H4: 

MOV DI, OFFSET BOOT_LOCN 

MOV CX.10 

MOV AX, WORD PTR BOOTJ.OCN 

OR AX, AX 

JE H10 ; 

NOW CHECK NEXT 10 WORDS FOR NOT EQUAL 

H4_LP: ADD DI,2 
CMP AX,ES:[DI] 
LOOPZ H4_LP 
JZ H10 



IF ZERO BAD BOOT RECORD 



LOOP IF DATA SAME 

BAD BOOT RECORD IF ALL DATA SAME 



0681 E8 0000 E 
0684 E8 0000 E 
0687 EA 7C00 -- 



AND 
CALL 
CALL 
JMP 



BI0S_STATUS,N0T BOOT_F1HIT+DCL_SUPPORTED ; RESET BIOS FLAGS 



DSP_INIT 

DSP_FSETM 

BOOT_LOCN 



CLEAR THE DISPLAY 

CLEAR THE TARGET DISPLAY 



SHOW DISKETTE EXITING DRIVE AND SPLITTING APART 



068C 80 26 0016 R EF H10: 



AND 



BIOS_STATUS,NOT B00T_F1HIT ; RESET KEY HIT FLAG 



0691 


BA 


0621 


0694 






0694 


52 




0695 


BA 


011F 


0698 


BD 


0000 E 


069B 


E8 


06BE R 


069 E 


5A 




069F 


FE 


C6 


06A1 


B3 


05 


06A3 


BD 


0000 E 


06A6 


80 


FE OE 


06A9 


75 


05 


06AB 


BD 


0000 E 


06AE 


B3 


28 


06B0 






06 BO 


E8 


06BE R 


06B3 


E8 


06C4 R 


06 B6 


80 


FE OE 


06 B9 


75 


D9 


06BB 


E9 


060C R 



MOV 
H10_2: 
PUSH 
MOV 
MOV 
CALL 
POP 
INC 
MOV 
MOV 



DX,0621H 



START INITIAL DISPLAY 



DX ; SAVE DISKTETTE POINTER 

DX,011FH ; DX POINTS TO DISPLAY POSITION 

BP, OFFSET SYS_DSKT_ICON ; POINT TO THE DISKETTE ICON 

DSPY_ICON 

DX 

DH 

BL,05 ; SET TIMEOUT TO 275 MSECS 

BP, OFFSET DSKT_ICON ; WITH GOOD DISKETTE ICON 



CHECK FOR LAST POSITION FOR DISKETTE BEFORE BROKEN DISKETTE IS SHOWN 



CMP 
JNE 
MOV 
MOV 
H10_3: 
CALL 
CALL 
CMP 
JNE 
JMP 



DH,OEH 

H10_3 ; YES THEN DISPLAY BROKEN ICON 

BP, OFFSET BAD_DSKT_ICON ; OTHERWISE SHOW BAD DISKETTE 
BL,40 ; TIME DELAY FOR BROKEN DISKETTE 



DSPY_ICON 

KEY_WAIT 

DH,OEH 

H10_2 

H3 



WAIT FOR TIME OR Fl KEY 

AT LAST ICON 

NO THEN KEEP MOVING DISKETTE 

YES THEN SHOW DISKETTE GOING IN 
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06BE 

06BE 

06BE OE 

06BF 07 

06C0 E8 0000 E 

06C3 C3 

06C4 



DISPLAY BROKEN ICON 



SYS_BOOT ENDP 

DSPY_ICON PROC N 

PUSH CS 

POP ES 

CALL ICON_PR 

RET 
DSPY_ICON ENDP 



POINT ES TO CODE SEGMENT 
DISPLAY THE INSERT DISKETTE ICON 



THIS CODE WAITS FOR THE Fl KEY TO BE DEPRESSED OR THE TIME LIMIT EXPIRED 
WHICH EVER COMES FIRST 



06C4 
06C4 
06C5 
06C6 
06C9 
06CD 



KEY_WAIT PROC NEAR 



IE 

07 

BF 001C R 

8A 3E 001A R 

BO 02 



06CF E8 0000 E 
06D2 72 22 



PUSH 

POP 

MOV 

MOV 

MOV 

CALL 



DS 

ES ; POINT ES TO DATA SEGMENT 

DI, OFFSET BUFFER_TAIL ; GET ADDRESS OF BUFFER_TAIL 
BH,BYTE PTR BUFFER_HEAD ; GET DATA IN BUFFER HRAD 



06D4 
06D6 
06D8 
06DB 



06DD 
06DF 
06E1 
06E7 



06EA 
06EB 
06ED 
06EF 



B4 00 
CD 16 
80 FC 3B 
74 OD 



JC 

A KEY WAS HIT 

MOV 
INT 
CMP 
JE 



AL,02H 



EXT_EVENT 
KW_EXIT 



AH,0 
16H 

AH,3BH 
F1BRK 



COMPARE RETURN NOT EQUAL 

USING BH AND DATA AT DI 

WILL RETURN AFTER TIME LIMIT OR WHEN 

THERE IS DATA IN KEYBOARD BUFFER 

IF TIMEOUT THEN JUMP 



OTHERWISE PURGE THE KEY 

Fl KEY? 

YES THEN WAIT FOR BREAK 



CHECK FOR POWER ON SELF TEST LOOP MODE REQUEST 



3C OC 

75 E3 

C7 06 0072 R ABCD 

E9 0000 E 



CMP AL,OCH ; 

JNE KEY.WAIT ; 

MOV RESET_FLAG,LOOP_MODE 

JMP POSTJ.OOP ; 



WAIT FOR BREAK OF Fl KEY 

FB F1BRK: STI 

E4 60 IN AL,KB_DATA 

3C 3B CMP AL,03BH 

74 F9 JE F1BRK 



CNTL + L KEY? 
NO THEN WAIT SOME MORE 
SET POST LOOP MODE ACTIVE 
EXIT BACK TO POST 



ENABLE INTERRUPTS 
READ KEYBOARD PORT 
CHECK FOR STILL Fl KEY 
WAIT UNTIL NOT Fl KEY MAKE 



; Fl KEY WAS DEPRESSED THEN RELEASED 
06F1 80 OE 0016 R 10 OR BI0S_STATUS,B00T_F1HIT ; SET Fl HIT FLAG 
; RETURN TO CALLER 



06F6 
06F6 
06F7 

06F7 



C3 



KW_EXIT: 

RET 
KEY_WAIT ENDP 

ROMCODE ENDS 
END 
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Communications and Printer BIOS 
(B14COMMO) 



0000 



R0MC0DE SEGMENT BYTE PUBLIC 
ASSUME CS:ROMCODE,DS:DATA 
IDENT B14C0M, 14,00 

•*****^*********************^ 

ROUTINE-NAME : B14C0MM0 

DATE LAST MODIFIED: 09/12/85 

DESCRIPTIVE-NAME : INT 14H CALLS COMMUNICATION BIOS FUNCTIONS. 

INT 17H CALLS PRINTER BIOS ROUTINES. 

COPYRIGHT : 7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 

CHANGE LEVEL: 0.0 

FUNCTIONS: 

COMMO_IO 

PRT_IO 

COM_POWER 

MODULE SIZE: 550 BYTES (DECIMAL) 

ENTRY CONDITIONS: REFER TO PROLOGUES 

EXIT CONDITIONS: REFER TO PROLOGUES 

ROUTINES IN MODULE: 
COMMO_IO 
PRT_IO 
COM_POWER 



COMMUNICATIONS BIOS 

PRINTER BIOS 

POWER ON/OFF COM DEVICES 



COMMUNICATIONS BIOS 

PRINTER BIOS 

POWER ON/OFF COM DEVICES 



INTERNAL DATA AREAS / TABLES: NONE 
EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 
EXTERNALLY REFERENCED DATA AREAS: BIOS DATA SEGMENT 
CHANGE ACTIVITY: NONE 
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Communications Interrupt Hex 14 
(COMMO-IO) 



INT 14H 

C0MM0_I0 

THIS ROUTINE PROVIDES BYTE STREAM I/O TO THE COMMUNICATIONS 

PORT ACCORDING TO THE PARAMETERS: 

(AH)=0 INITIALIZE THE COMMUNICATIONS PORT 

(AL) HAS PARAMETERS FOR INITIALIZATION 



4 3 2 10 

-PARITY-- STOPBIT --WORD LENGTH- 

XO - NONE 0-1 10-7 BITS 

01 - ODD 1-2 11-8 BITS 
11 - EVEN 



7 6 5 
BAUD RATE -- 

000 - 110 

001 - 150 
010 - 300 
Oil - 600 

100 - 1200 

101 - 2400 

110 - 4800 

111 - 9600 



ON RETURN, CONDITIONS SET AS IN CALL TO COMMO STATUS (AH=3) 
(AH)=1 SEND THE CHARACTER IN (AL) OVER THE COMMO LINE 
(AL) REGISTER IS PRESERVED 

ON EXIT, BIT 7 OF AH IS SET IF THE ROUTINE WAS UNABLE 
TO TRANSMIT THE BYTE OF DATA OVER THE LINE. 
IF BIT 7 OF AH IS NOT SET, THE REMAINDER OF AH 
IS SET AS IN A STATUS REQUEST, REFLECTING THE 
CURRENT STATUS OF THE LINE. 
(AH)=2 RECEIVE A CHARACTER IN (AL) FROM COMMO LINE BEFORE 
RETURNING TO CALLER 
ON EXIT, AH HAS THE CURRENT LINE STATUS, AS SET BY THE 
THE STATUS ROUTINE, EXCEPT THAT THE ONLY BITS 
LEFT ON ARE THE ERROR BITS (7,4,3,2,1) 
IF AH HAS BIT 7 ON (TIME OUT) THE REMAINING 
BITS ARE NOT PREDICTABLE. 
THUS, AH IS NON ZERO ONLY WHEN AN ERROR 
OCCURRED 
(AH)=3 RETURN THE COMMo'pORT STATUS IN (AX) 
AH CONTAINS THE LINE STATUS 



BIT 


7 = 


= TIME OUT 






BIT 


6 = 


= TRANS SHIFT REGISTER 


EMPTY 


BIT 


5 = 


= TRAN HOLDING REGISTER 


EMPTY 


BIT 


4 


= BREAK DETECT 






BIT 


3 


= FRAMING ERROR 






BIT 


2 


= PARITY ERROR 






BIT 


1 - 


= OVERRUN ERROR 






BIT 





= DATA READY 






AL 


:ONTAINS THE MODEM 


STATUS 




BIT 


7 


= RECEIVED LINE 


SIGNAL 


DETECT 


BIT 


6 


= RING INDICATOR 






BIT 


5 


= DATA SET READY 






BIT 


4 


= CLEAR TO SEND 






BIT 


3 


= DELTA RECEIVE 


LINE SIGNAL DETECT 


BIT 


2 


= TRAILING EDGE 


RING DETECTOR 


BIT 


1 


= DELTA DATA SET 


READY 




BIT 





= DELTA CLEAR TO 


SEND 




AH)=0THER 










NO 


ACTION TAKEN. 







(DX) = PARAMETER INDICATING WHICH RS232 CARD (0,1 ALLOWED) 

DATA AREA RS232_BASE CONTAINS THE BASE ADDRESS OF THE 8250 ON THE 

CARD. LOCATION 400H CONTAINS UP TO 4 RS232 ADDRESSES POSSIBLE. 
DATA AREA LABEL RS232_TIM_0UT (BYTE) CONTAINS OUTER LOOP COUNT 
VALUE FOR TIMEOUT (DEFAULTS). 

REGISTERS MODIFIED 

AX MODIFIED ACCORDING TO PARMS OF CALL 
ALL OTHERS UNCHANGED 
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INTERRUPTS: 

INTERRUPTS ARE ENABLE UPON ROUTINE ENTRY. 



********************************** 

PUBLICS 
********************************** 

PUBLIC COMMO_IO 
PUBLIC PRT_IO 
PUBLIC COM_POWER 



********************************** 

EXTERNALS 
********************************** 



0020 
0010 
0001 
0002 
001E 
0080 



EXTRN DDS 


NEAR 




EXTRN BAUD_TABLE: 


BYTE 


EXTRN GET. 


_RTC_REG 


:NEAR 


EXTRN GET. 


.VECTORS 


:NEAR 


EXTRN Dll 


NEAR 




EXTRN CHECK_F0R_8250:NEAR 


. ********************************** 


; EQUATES 






. ****************************** 


*•*** 


DSR_BIT EQU 


20H 




CTS_BIT EQU 


10H 




DTR_BIT EQU 


01H 




RTS.BIT EQU 


02H 




RCV.ERR EQU 


00011110B 


DLAB EQU 


80H 





********************************** 

START OF CODE 
********************************** 



RECV ERROR BITS 

DIVISOR LATCH ACCESS BIT 



0000 








COMMO_IC 
-- VECTOR TO 


PROC FAR 
APPROPRIATE ROUTINE 


0000 


IE 








PUSH 


DS 


0001 


52 








PUSH 


DX 


0002 


56 








PUSH 


SI 


0003 


57 








PUSH 


DI 


0004 


51 








PUSH 


CX 


0005 


53 








PUSH 


BX 


0006 


8B 


F2 






MOV 


SI,DX 


0008 


8B 


FA 






MOV 


DI,DX 


OOOA 


Dl 


E6 






SHL 


SI ,1 


OOOC 


E8 


0000 E 




CALL 


DDS 


OOOF 


8B 


94 


0000 R 




MOV 


DX,RS232_BASE[SI] 


0013 


OB 


D2 






OR 


DX,DX 


0015 


74 


28 






JZ 


A3 


0017 


8A 


D8 


[ 




MOV 


BL,AL 








' 


-CHECK 


FOR PRESENSE OF 8250 AT T 


0019 


83 


C2 


03 




ADD 


DX,3 


001C 


E8 


0000 E 




CALL 


CHECK_F0R_8250 


001F 


FB 








STI 




0020 


72 


05 






JC 


AO 


0022 


80 


CC 


80 




OR 


AH,80H 


0025 


EB 


18 






JMP 


SHORT A3 


0027 


83 


EA 


03 


AO 




SUB DX,3 


002A 


8A 


C3 




Al 




MOV AL,BL 


002C 


OA 


E4 






OR 


AH, AH 


002 E 


74 


16 






JZ 


A4 


0030 


FE 


CC 






DEC 


AH 


0032 


74 


47 






JZ 


A5 


0034 


FE 


CC 






DEC 


AH 


0036 


74 


6C 






JZ 


A12 


0038 


FE 


CC 






DEC 


AH 


003A 


75 


03 






JNZ 


A3 


003C 


E9 


00C6 R 




JMP 


A18 


003F 








A3 






003F 


5B 








POP 


BX 


0040 


59 








POP 


CX 



SAVE SEGMENT 

AND REGISTERS USED 



PORT NUMBER TO SI 

AND DI 

MAKE WORD OFFSET 

BIOS DATA SEG INTO DS 

GET PORT BASE ADDRESS 

TEST FOR (NO PORT) 

RETURN 

; SAVE SEND CHAR IF IS ONE 



ADDRESS 8250 LINE CTRL REG 
CARRY SET IF PRESENT 
SHIELDS DOWN 
YES, GO ON IF PRESENT 

NO, SET TIMEOUT ERROR 
EXIT 

RESTORE ADDRESS 

RESTORE SEND CHAR IF IS ONE 

TEST FOR AH=0 

YES, COMMO INIT 

TEST FOR AH=1 

YES, SEND CHAR 

TEST FOR AH=2 

YES, RECEIVE CHAR 

TEST FOR AH=3 

NO, EXIT 

YES, GET PORT STATUS 

RETURN FROM RS232 

RESTORE REGISTERS 
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0041 


5F 








POP 


DI 




0042 


5E 








POP 


SI 




0043 


5A 








POP 


DX 




0044 


IF 








POP 


DS 




0045 


CF 








IRET 




RETURN TO CALLER 








; — 


- INITIALIZE 


THE COMMUNICATIONS PORT 


0046 








A4 








0046 


8A 


EO 






MOV 


AH,AL 


SAVE INIT PARMS IN AH 


0048 


83 


C2 


03 




ADD 


DX,3 


POINT TO 8250 CONTROL REG 


004B 


BO 


80 






MOV 


AL,DLAB 


ACCESS BAUD RATE BY 


004D 


EE 








OUT 


DX,AL 


SETTING DLAB=1 








; — 


- DETERMINE 


BAUD RATE DIVISOR 




004E 


8A 


D4 






MOV 


DL,AH 


GET PARMS TO DL 


0050 


Bl 


04 






MOV 


CL,4 




0052 


D2 


C2 






ROL 


DL,CL 




0054 


81 


E2 


OOOE 




AND 


DX,OEH 


ISOLATE THEM 


0058 


BF 0000 E 




MOV 


DI, OFFSET BAUD_TABLE 


; BASE OF TABLE 


005B 


03 


FA 






ADD 


DI,DX 


PUT INTO INDEX REGISTER 


005D 


8B 


94 


0000 R 




MOV 


DX,RS232_BASE[SI] 


POINT TO HIGH ORDER OF DIV 


0061 


42 








INC 


DX 




0062 


2E 


8/5 


45 01 




MOV 


AL,CS:[DI] + 1 


GET HIGH ORDER OF DIVISOR 


0066 


EE 








OUT 


DX,AL 


SET HIGH OF DIVISOR 


0067 


4A 








DEC 


DX 




0068 


2E 


8/S 


05 




MOV 


AL,CS:[DI] 


GET LOW ORDER OF DIVISOR 


006B 


EE 








OUT 


DX,AL 


SET LOW OF DIVISOR 


006C 


83 


C2 


03 




ADD 


DX,3 


ADDRESS LINE CTR REG 


006F 


8A 


C4 






MOV 


AL,AH 


GET PARMS BACK 


0071 


24 


IF 






AND 


AL.01FH 


STRIP OFF THE BAUD BITS 


0073 


EE 








OUT 


DX,AL 


SET LINE CTRL TO WORD LENGTH 


0074 


4A 








DEC 


DX 


PARITY AND # STOP BITS 


0075 


4A 








DEC 


DX 


ADDRESS INTR ENABLE REG 


0076 


BO 


00 






MOV 


AL,0 




0078 


EE 








OUT 


DX,AL 


DISABLE INTERRUPTS (IER) 


0079 


EB 


4B 






JMP 


SHORT A18 


COM_STATUS 








; — 


- SEND 


CHARACTER IN (AL) OVER COMMO 


LINE 


007B 








A5 








007B 


50 








PUSH 


AX 


SAVE CHAR TO SEND 


007C 


83 


C2 


04 




ADD 


DX,4 


ADDRESS MODEM CONTROL REG 


007F 


BO 


03 






MOV 


AL,DTR_BIT OR RTS_BI1 


r ; SET DTR AND RTS 


0081 


EE 








OUT 


DX,AL 


DATA TERM RDY, REQ TO SEND 


0082 


42 








INC 


DX 


MODEM STATUS REGISTER 


0083 


42 








INC 


DX 




0084 


B7 


30 






MOV 


BH,DSR_BIT OR CTS_BI1 


r ; DATA SET RDY & CLR TO SEND 


0086 


E8 


0158 R 




CALL 


WAIT_FOR_STATUS 


ARE BOTH TRUE 


0089 


74 


08 






JZ 


A9 


YES, READY TO TRANSMIT CHAR 


008B 








A7 








008B 


59 








POP 


CX 




008C 


8A 


CI 






MOV 


AL,CL 


RELOAD DATA BYTE 


008E 








A8 








008E 


80 


CC 


80 




OR 


AH,80H 


INDICATE TIME OUT 


0091 


EB 


AC 






JMP 


A3 


RETURN 


0093 








A9 






CLEAR_TO_SEND 


0093 


4A 








DEC 


DX 


ADDRESS LINE STATUS REGISTER 


0094 


B7 


20 






MOV 


BH,DSR_BIT 


IS TRANSMITTER READY 


0096 


E8 


0158 R 




CALL 


WAIT_FOR_STATUS 


TEST FOR TRANSMITTER READY 


0099 


75 


FO 






JNZ 


A7 


NO, RETURN WITH TIME OUT SET 


009B 


83 


EA 


05 




SUB 


DX,5 


ADDRESS DATA PORT 


009E 


59 








POP 


CX 


RECOVER IN CX TEMPORARILY 


009F 


8A 


CI 






MOV 


AL,CL 


MOVE CHAR TO AL FOR OUT, 
STATUS IN AH 


00A1 


EE 








OUT 


DX,AL 


OUTPUT CHARACTER 


00A2 


EB 


9B 






JMP 


A3 


, RETURN 










- RECEIVE CHARACTER FROM COMMO LINE 




00A4 








A12: 






00A4 


83 


C2 


04 




ADD 


DX,4 


, MODEM CONTROL REGISTER 


00A7 


BO 


01 






MOV 


AL,DTR_BIT 


, SET DATA TERMINAL READY 
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00A9 


EE 




OUT 


DX,AL 


OOAA 


42 




INC 


DX ; 


OOAB 


42 




INC 


DX 


OOAC 


B7 


20 


MOV 


BH,DSR_BIT ; 


OOAE 


E8 


0158 R 


CALL 


WAIT_FOR_STATUS ; 


OOB1 


75 


DB 


JNZ 


A8 ; 


OOB3 


4A 




DEC 


DX ; 


00B4 


B7 


01 


MOV 


BH,1 ; 


OOB6 


E8 


0158 R 


CALL 


WAIT_FOR_STATUS 


00B9 


75 


D3 


JNZ 


A8 ; 


OOBB 


80 


E4 IE 


AND 


AH,RCV_ERR ; 


OOBE 


8B 


94 0000 R 


MOV 


DX,RS232_BASE[SI] ; 


OOC2 


EC 




IN 


AL,DX ; 


OOC3 


E9 


003 F R 


JMP 
- COMMO PORT 


A3 ; 
STATUS ROUTINE 


00C6 






A18: 




00C6 


8B 


94 0000 R 


MOV 


DX,RS232_BASE[SI] 


OOCA 


83 


C2 05 


ADD 


DX,5 ; 


OOCD 


EC 




IN 


AL,DX ; 


OOCE 


8A 


EO 


MOV 


AH,AL ; 


OODO 


42 




INC 


DX ; 


OOD1 


EC 




IN 


AL,DX ; 


OOD2 


E9 


003 F R 


JMP 


A3 ; 



MODEM STATUS REGISTER 

DATA SET READY 

TEST FOR DSR 

NO, RETURN WITH ERROR 

LINE STATUS REGISTER 

RECEIVE BUFFER FULL 

TEST FOR REC. BUFF. FULL 

NO, SET TIME OUT ERROR 

SAVE ERR ON RECV CHAR 

DATA PORT 

GET CHARACTER FROM LINE 

RETURN 



LINE STATUS REGISTER 
GET LINE CONTROL STATUS 
PUT IN AH FOR RETURN 
POINT TO MODEM STATUS REG 
GET MODEM CONTROL STATUS 
RETURN 



03FB 



C0M_P0WER 

TURN POWER ON/OFF TO COMMO CARD 

ENTRY: 

BL = MODEM/ASYNC POWER BIT IN FEATURE CONFIGURATION REGISTER 

( =02 FOR MODEM, =04 FOR ASYNC SEC, =05 ASYNC PRIMARY 
BH = - TURN POWER OFF 
= 1 - TURN POWER ON 

EXIT: AH = AND CF = IF OPERATION OKAY 

AH = 80 AND CF = 1 IF POWER ON REQSTED AND NO RESP FROM 8250 
WITHIN 500 MSEC 
REGISTERS USED: 

AX IS DESTROYED. ALL OTHERS ARE NOT MODIFIED. 

INTERRUPTS: 

INTERRUPTS ARE ENABLED WITHIN ROUTINE, RESTORED UPON EXIT. 



LOCAL EQUATES 

LINE_CTL_REG EQU 



3FBH 



00D5 



O0D5 


53 




O0D6 


51 




00D7 


52 




00D8 


E4 


7C 


OODA 


BA 


03FB 


OODD 


B4 


10 


OODF 


Bl 


04 


00E1 


F6 


C3 03 


00E4 


75 


06 


O0E6 


FE 


CE 


00E8 


DO 


EC 


00 EA 


FE 


C9 


OOEC 


OA 


FF 


OOEE 


74 


06 


OOFO 


OA 


C3 


00 F2 


E6 


7C 


00F4 


EB 


47 



COM_POWER 

PUSH 

PUSH 

PUSH 

IN 

MOV 

MOV 

MOV 

TEST 

JNZ 

DEC 

SHR 

DEC 



PROC 



NEAR 



CPO: 



JZ 
OR 
OUT 
JMP 



BX 

CX 

DX 

AL,KYBD_CNTL 

DX,LINE_CTL_REG 

AH,10H 

CL,4 

BL,SET_RS232_PRIM+ACT_M0DEM 

CPO 



: SAVE REGISTERS 



GET INITIAL REG CONTENTS 
PRI PORT LINE CONTROL REG 
SET FOR LVL 4 SYSTEM IRPT 
PARM FOR GET_VECTOR CALL 
PRIMARY ASYNC? 



DH 

AH.l 

CL 



OR 



BH,BH 



CP1 
AL,BL 

KYBD_CNTL,AL 
SHORT CP2 



NO - POINT TO SEC INT ID REG 
SET FOR LEVEL 3 SYSTEM IRPT 
ADJUST PARM FOR LEVEL 3 IRPT 

CHECK REQUEST CODE 

JUMP IF A POWER OFF REQUEST 

TURN POWER ON 



; BE ABLE TO HANDLE ANY PENDING INTERRUPT WHEN POWER IS TURNED OFF 
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00F6 


9C 








CP1: PUSHF 


SAVE FLAGS 


00F7 


FA 








CLI 




SHIELDS UP 


00 F8 


F6 


D3 






NOT 


BL 


TURN POWER OFF 


00 FA 


22 


C3 






AND 


AL,BL 




00 FC 


E6 


7C 






OUT 


KYBD_CNTL,AL 




00FE 


56 








PUSH 


SI 


SAVE SI 


OOFF 


E8 


0000 E 




CALL 


GET_VECT0R(3 


SI CONTAINS VECTOR OFFSET 


0102 


IE 








PUSH 


DS 


SAVE DS 


0103 


B9 





- R 




MOV 


CX,ABSO 




0106 


8E 


D9 






MOV 


DS,CX 


SEGMENT THAT CONTAINS VECTOR 


0108 


8B 


OC 






MOV 


CX,[SI] 




010A 


51 








PUSH 


CX 


SAVE OFFSET 


010B 


8B 


4C 


02 




MOV 


CX,[SI+2] 




010E 


51 








PUSH 


CX 


SAVE SEGMENT 


010F 


C7 


04 


0000 


E 


MOV 


WORD PTR[SI], OFFSET Dll ; SET UP DUMMY IRPT HNDLER 


0113 


8C 


4C 


02 


UNMASK 


MOV 
INTERRUPT 


[SI+2],CS 
LEVEL 3/4 




0116 


F6 


D4 






NOT 


AH 




0118 


E4 


21 






IN 


AL,INTA01 


GET CURRENT SYSTEM IRPTS 


011A 


8A 


D8 






MOV 


BL,AL 


SAVE CURRENT SYSTEM IRPTS 


one 


22 


C4 






AND 


AL,AH 


LEVEL 3/4 INTERRUPT 


011E 


E6 


21 






OUT 


INTA01,AL 


UNMASK INTERRUPT 








; 


ENABLE 


SYSTEM INTERRUPTS 




0120 


FB 








STI 




SHIELDS DOWN 


0121 


B9 


64C8 




MOV 


CX,100*MS_DELAY 


DELAY 100ms 


0124 


E2 


FE 




RESTORE 


LOOP 
INTERRUPT 


$ 
MASK 




0126 


FA 








CLI 




SHIELDS UP 


0127 


E4 


21 






IN 


AL,INTA01 


CURRENT INTERRUPTS 


0129 


F6 


D4 






NOT 


AH 


MASK INTERRUPT LEVEL 3/4 IF 


012B 


22 


DC 






AND 


BL,AH 


UNMASKED DURING THIS ROUTINE 


012D 


OA 


C3 






OR 


AL,BL 




012F 


E6 


21 




RESTORE 


OUT 
INTERRUPT 


INTA01.AL 
VECTOR 


MASK INTERRUPT 


0131 


59 








POP 


CX 


RESTORE IRPT VECTOR SEGMENT 


0132 


89 


4C 


02 




MOV 


[SI+2],CX 




0135 


59 








POP 


CX 


RESTORE IRPT VECTOR OFFSET 


0136 


89 


OC 






MOV 


[SI],CX 




0138 


IF 








POP 


DS 




0139 


5E 








POP 


SI 




013A 


9D 








POPF 






013B 


EB 


15 






JMP 


SHORT CP3 


, EXIT GOOD 



WAIT FOR RESPONSE FROM 8250 UP TO 500 msec 



013D B3 05 



CP2: 



013F 
0142 


B9 
E2 


64C8 
FE 


CP2_1: MOV CX,100*MS_ 
LOOP $ 

CHECK FOR RESPONSE FROM 8250 


.DELAY 


; INNER LOOP COUNT 


0144 
0147 
0149 
014B 


E8 
72 
FE 
75 


0000 E 
09 
CB 
F2 


CALL 
JC 
DEC 
JNZ 


CHECK_F0R_8250 

CP3 

BL 

CP2_1 




SETS CARRY IF PRESENT 
YES, GO ON. 

NO, TRY TIL TIMES UP 






; 


NO RESPONSE FROM 8250 - TIMEOUT 






014D 
014F 
0150 


B4 
F9 
EB 


80 
02 


MOV 
STC 
JMP 

RESET ASYNC 


AH,80H 
SHORT CP4 




SET TIMEOUT 
SET CARRY FLAG 



2-148 ROM BIOS 



0152 2A E4 

0154 5A 

0155 59 

0156 5B 

0157 C3 

0158 



CP3: SUB 


AH, AH 


CP4: POP 
POP CX 
POP BX 
RET 


DX 


COM_POWER 


ENDP 



GOOD RETURN 
RESTORE REGISTERS 



WAIT FOR STATUS ROUTINE 



ENTRY: 



BH=STATUS BIT(S) TO LOOK FOR, 
DX=ADDR. OF STATUS REG 

ZERO FLAG ON = STATUS FOUND 
ZERO FLAG OFF = TIMEOUT. 
AH=LAST STATUS READ 



0158 






WAIT_FOR_ 


.STATUS PROC 


NEAR 




0158 


8A 


9D 007C R 


MOV 


BL,RS232_TIM_0UT[DI] 


; LOAD OUTER LOOP COUNT 


015C 






WFSO: 








015C 


2B 


C9 


SUB 


CX,CX 






015E 






WFS1: 








015E 


EC 




IN 


AL,DX 




GET STATUS 


015F 


8A 


EO 


MOV 


AH,AL 




MOVE TO AH 


0161 


22 


C7 


AND 


AL,BH 




ISOLATE BITS TO TEST 


0163 


3A 


C7 


CMP 


AL,BH 




EXACTLY = TO MASK 


0165 


74 


08 


JE 


WFS_END 




RETURN WITH ZERO FLAG ON 


0167 


E2 


F5 


LOOP 


WFS1 




TRY AGAIN 


0169 


FE 


CB 


DEC 


BL 






016B 


75 


EF 


JNZ 


WFSO 






016D 


OA 


FF 


OR 


BH,BH 




SET ZERO FLAG OFF 


016F 






WFS_END: 








016F 


C3 




RET 








0170 






WAIT_FOR_ 


.STATUS ENDP 






0170 






COMMO_IO 


ENDP 
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Printer Interrupt Hex 17 (PRT.IO) 



(AH)=0 



(AH) = 
(AH) = 



— INT 17H 

PRT_IO 

THIS ROUTINE PROVIDES COMMUNICATION WITH THE PRINTER 
INPUT 

PRINT THE CHARACTER IN (AL) 

ON RETURN, AH=1 IF CHARACTER COULD NOT BE PRINTED 

(TIME OUT) . OTHER BITS SET AS ON NORMAL STATUS CALL 

INITIALIZE THE PRINTER PORT 

RETURNS WITH (AH) SET WITH PRINTER STATUS 

READ THE PRINTER STATUS INTO (AH) 

7 6 5 4 3 2-10 

I | | UTIMEOUT 

I I |_ UNUSED 

I l_ 1 = I/O ERROR 

|_ 1 = SELECTED 
|_ 1 = OUT OF PAPER 
1 = ACKNOWLEDGE 
|_ 1 = NOT BUSY 

(AH)=OTHER 

NO ACTION TAKEN. 

(DX) = PRINTER TO BE USED (0,1,2) CORRESPONDING TO ACTUAL 
VALUES IN PRINTER_BASE AREA 

DATA AREA PRINTER_BASE CONTAINS THE BASE ADDRESS OF THE PRINTER 
CARD(S) AVAILABLE (LOCATED AT BEGINNING OF DATA SEGMENT, 
408H ABSOLUTE, 3 WORDS). 

DATA AREA PRINT_TIM_OUT (BYTE) MAY BE CHANGED TO CAUSE DIFFERENT 
TIME-OUT WAITS. DEFAULT=20. 

IF NO PRINTER ATTACHED OR INVALID FUNCTION CODE RECEIVED, A RETURN 
IS MADE WITH AH= PRINTER TIMEOUT (01) 

REGISTERS USED 

AH IS MODIFIED 

ALL OTHERS UNCHANGED 



INTERRUPTS: 

INTERRUPTS ARE ENABLE UPON ROUTINE ENTRY, 



RESTORED ON EXIT. 



0170 






0170 


FB 




0171 


IE 




0172 


52 




0173 


56 




0174 


51 




0175 


53 




0176 


E8 


0000 E 


0179 


8B 


F2 


017B 


8A 


9C 0078 R 


017F 


Dl 


E6 


0181 


8B 


94 0008 R 


0185 


OB 


D2 


0187 


74 


OC 


0189 


OA 


E4 


018B 


74 


10 


018D 


FE 


CC 


018F 


74 


57 


0191 


FE 


CC 


0193 


74 


3F 



ASSUME CS:ROMCODE,DS:DATA 
PRT_IO PROC FAR 



ST I 








SHIELDS DOWN 


PUSH 


DS 






SAVE SEGMENT 


PUSH 


DX 






SAVE REGISTERS USED HERE 


PUSH 


SI 








PUSH 


CX 








PUSH 


BX 








CALL 


DDS 






BIOS DATA SEG TO DS 


MOV 


SI,DX 






GET PRINTER PARM 


MOV 


BL, PRINT. 


_TIM. 


_OUT[SI] 


; LOAD TIME-OUT PARM 


SHL 


SI ,1 






WORD OFFSET INTO TABLE 


MOV 


DX,PRINTER_BASE[SI] 


GET BASE ADDRESS FOR PRINTER 


OR 


DX,DX 






ANY PRINTERS PRESENT? 


JZ 


BO 






NO, SIGNAL ERROR 


OR 


AH, AH 






TEST FOR (AH)=0 


JZ 


B2 






YES, PRINT CHAR 


DEC 


AH 






TEST FOR (AH)=1 


JZ 


B8 






YES, INIT PRINTER 


DEC 


AH 






TEST FOR (AH) =2 


JZ 


B5 






YES, GET STATUS 



; INVALID COMMAND OR NO PRINTER ATTACHED; SIGNAL TIMEOUT 
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0195 


B4 


01 


COMMOIN 


BO: 
EXIT FOR 


MOV AH,01H 
ALL PRINTER FUNCTIONS 


NO, RETURN TIMEOUT STATUS 


0197 


5B 


' 




Bl: 


POP BX 




0198 


59 






POP 


CX 




0199 


5E 






POP 


SI 


RECOVER REGISTERS 


019A 


5A 






POP 


DX 


RECOVER REGISTERS 


019B 


IF 






POP 


DS 




019C 


CF 






IRET 
PRINT THE 


CHARACTER IN (AL) 




019D 








B2: 






019D 


50 






PUSH 


AX 


SAVE VALUE TO PRINT 


019E 


42 






INC 


DX 


POINT TO STATUS PORT 






; 


CHECK 


FOR PRINTER BUSY 




019F 


EC 






IN 


AL,DX 


GET STATUS 


01A0 


A8 


80 




TEST 


AL,NOT_BUSY 


IS PRINTER CURRENTLY BUSY? 


01A2 


75 


23 




JNZ 


B4 


NO THEN OUT.STROBE 






; 


NOTIFY 


OPERATING SYSTEM THAT A PRINTER 


BUSY WAIT IS IN AFFECT 


01A4 


F8 






CLC 




***INT 15 DEVICE BUSY 


01A5 


B8 


90FE 




MOV 


AX,90FEH 


FUNCTION 90 PRINTER ID 


01A8 


CD 


15 




INT 


15H 




01AA 


72 


13 




JC 


B3_2 


JUMP IF TIMEOUT OCCURRED 


01AC 








B3: 






01AC 


2B 


C9 




SUB 


CX,CX 


WAIT.BUSY 


01AE 








B3_l: 






01AE 


EC 






IN 


AL,DX 


GET STATUS 


01AF 


8A 


EO 




MOV 


AH,AL 


STATUS TO AH ALSO 


01B1 


A8 


80 




TEST 


AL,NOT_BUSY 


IS PRINTER CURRENTLY BUSY 


01B3 


75 


12 




JNZ 


B4 


NO, OUT.STROBE 


01B5 


E2 


F7 




LOOP 


B3_l 


YES, TRY AGAIN 


01B7 


A8 


08 




TEST 


AL,NOT_ERROR 


CHECK FOR I/O ERROR 


01B9 


74 


07 




JZ 


B3_3 


YES, JUMP 


01BB 


FE 


CB 




DEC 


BL 


FINISHED 500 MS DELAY? 


01BD 


75 


ED 




JNZ 


B3 


NO, DO AGAIN 






; 


BUSY TIMEOUT OCCURRED 


YES, TIMEOUT 


01BF 








B3_2: 






01BF 


80 


CC 01 




OR 


AH,1 


SET ERROR FLAG 


01C2 








B3_3: 






01C2 


80 


E4 F9 




AND 


AH,0F9H 


TURN OFF THE OTHER BITS 


01C5 


EB 


19 




JMP 


SHORT B7 


RETURN WITH ERROR FLAG SET 






; 


PRINTER IS NOT 


BUSY SO STROBE OUT CHARACTER 


01C7 


58 






B4: 


POP AX 


GET VALUE TO PRINT 


01C8 


4A 






DEC 


DX 


POINT TO DATA REG 


01C9 


EE 






OUT 


DX,AL 


OUTPUT VALUE TO DATA REG 


01CA 


42 






INC 


DX 


POINT TO STATUS PORT 


01CB 


50 






PUSH 


AX 


SAVE VALUE TO PRINT 
OUT_STROBE 


01CC 


BO 


OD 




MOV 


AL,SELECT+NO_INIT+STROBE ; SET THE STROBE HIGH 


01CE 


42 






INC 


DX 


STRB IS BIT OF PORT C 


01CF 


EE 






OUT 


DX,AL 




01D0 


24 


FE 




AND 


AL,NOT STROBE 


SET THE STROBE LOW 


01D2 


EE 






OUT 


DX,AL 




01D3 


58 






POP 


AX 


RECOVER THE OUTPUT CHAR 






; 




PRINTER STATUS 




01D4 








B5: 






01D4 


50 






PUSH 


AX 


SAVE AL REG 


01D5 








B6: 






01D5 


8B 


94 0008 


R 


MOV 


DX,PRINTER_BASE[SI] 




01D9 


42 






INC 


DX 
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01DA 


EC 


OlDB 


8A EO 


OIDD 


80 E4 F8 


OlEO 




OlEO 


5A 


01E1 


8A C2 


01E3 


80 F4 48 


01E6 


EB AF 


01E8 




01E8 


50 


01E9 


42 


OlEA 


42 


OlEB 


BO 08 


OlED 


EE 


OlEE 


B9 0352 



021D 



IN 


AL,DX 


GET PRINTER STATUS 


MOV 


AH,AL 




AND 


AH,0F8H 


TURN OFF UNUSED BITS 
STATUS_SET 


POP 


DX 


RECOVER AL REG 


MOV 


AL,DL 


GET CHARACTER INTO AL 


XOR 


AH,ACK+NOT_ERROR 


FLIP A COUPLE OF BITS 


JMP 


Bl 


RETURN FROM ROUTINE 



B7: 



INITIALIZE THE PRINTER PORT 



PUSH 


AX 


INC 


DX 


INC 


DX 


MOV 


AL, SELECT 


OUT 


DX,AL 


MOV 


CX,850 



; SAVE AL 

; POINT TO OUTPUT PORT 

; SET INIT LINE LOW, SLCT HIGH 

; SET MAX TIME CNT TO 4.25 SEC 



WAIT FOR UP TO 4 SECONDS FOR COMPACT PRINTER TO DROP BUSY 
IF PARALLEL PRINTER THEN JUST WAIT 5 MSECS AND EXIT 



01F1 


51 




01F2 


B9 


050A 


01F5 


E2 


FE 


01F7 


59 




01F8 


83 


FA 7A 


01FB 


75 


IB 


01FD 


E4 


79 


01FF 


A8 


02 


0201 


El 


EE 


0203 


B3 


08 


0205 


B9 


FBF4 


0208 


E2 


FE 


020A 


FE 


CB 


020C 


75 


F7 


020E 


BO 


OC 


0210 


EE 




0211 


B9 


3C78 


0214 


E2 


FE 


0216 


EB 


BD 


0218 


BO 


OC 


021A 


EE 




021B 


EB 


B8 


021D 







BIO: PUSH CX 

MOV CX,5*MS_DELAY 

LOOP $ 

POP CX 

CMP DX,CPRT_MODE 

JNE Bll 



DELAY FOR 5 MSECS 



COMPACT PRINTER? 
EXIT LOOP IF NOT 



WAIT FOR COMPACT PRINTER TO DROP BUSY 



IN 

TEST 

LOOPZ 



AL,CPRT_STAT 

AL,02 

BIO 



CHK FOR BUSY DROP IN STATUS 

NOT BUSY? 

LOOP IF STILL BUSY 



DELAY 2 SECONDS AFTER BUSY DROP TO LET PRINTER MOVE HEAD TO HOME 

MOV BL, SELECT 
B10_l: MOV CX,250*MS_DELAY 
LOOP $ 
DEC BL 
JNE B10_l 



ACTIVATE PRINTER POWER 



MOV 
OUT 



AL,SELECT+NO_INIT 
DX,AL 



NO INTERRUPTS, NON AUTO LF, 
SELECT AND INIT LINE HIGH 



DELAY 60 MSEC AFTER PRINTER POWER HAS BEEN ENABLED 

CX,60*MS_DELAY ; 60 MSEC DELAY 

$ 

SHORT B6 : EXIT ROUTINE 



MOV 

LOOP 

JMP 



Bll: MOV AL,SELECT+NO_INIT ; NO IRPTS, NON AUTO LF, 
OUT DX,AL ; SELECT AND INIT LINE HIGH 

JMP SHORT B6 ; PRT_STATUS_1 

PRT_IO ENDP 

ROMCODE ENDS 
END 
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Time of Day (B15TOD) 



0000 



R0MC0DE SEGMENT BYTE PUBLIC 
ASSUME CS:R0MC0DE,DS:DATA 
IDENT B15T0D, 15,00 

MODULE-NAME : B15T0D 

DATE LAST MODIFIED: 9/12/85 
DESCRIPTIVE-NAME : TIME OF DAY SUPPORT 



COPYRIGHT : 7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 



CHANGE LEVEL: 0.0 

FUNCTION: TOD_PROC 
SET_TOD 
TMR0_INT8 
INITIALIZE_STATUS 
RTC2_TST 

MODULE SIZE: 936 BYTES 



ALLOW READ/SET OF REAL TIME CLOCK 

INITIALIZE TIMER DATA AREA 

SYSTEM TIMER INTERRUPT HANDLER 

INITIALIZE REAL TIME CLOCK 

TEST REAL TIME CLOCK FOR TIME UPDATE 



ENTRY CONDITIONS: 

REFER TO ROUTINE PROLOGUES 



EXIT CONDITIONS: 

REFER TO ROUTINE PROLOGUES 



ROUTINES IN MODULE: 
TOD_PROC 
SET_TOD 
TMR0_INT8 



ALLOW READ/SET OF REAL TIME CLOCK 
INITIALIZE TIMER DATA AREA 
TIMER INTERRUPT HANDLER 

NONE 



INTERNAL DATA AREAS / TABLES: 
EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 
EXTERNALLY REFERENCED DATA AREAS: TIMER DATA AREA 
CHANGE ACTIVITY: NONE 

* EXTERNAL REFERENCES 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



GET_RTC_NMI:NEAR 

PUT_RTC_NMI:NEAR 

DDS:NEAR 

ENABLE_NMI:NEAR 

DISABLE_NMI:NEAR 

KB_NOISE:NEAR 
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;* PUBLICS DECLARATION * 



PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 



TOD_PROC 

SET.TOD 

TMR0_INT8 

INITIALIZE_STATUS 

RTC2_TST 



* STARTOFCODE * 



Time of Day Interrupt Hex 1A 
(TOD-PROC) 



SUBTTL T0D_PR0C 

ROUTINE-NAME : T0D_PR0C (INT 1AH) 

FUNCTION: ALLOW REAL TIME CLOCK TO BE READ/SET 
ALLOW TIMER DATA AREA TO BE READ/SET 

ENTRY AND EXIT CONDITIONS: 

1. PURPOSE OF ENTRY: READ THE CURRENT CLOCK SETTING 
(TIMER DATA AREA) 
INPUT CONDITIONS: AH = OOH 

NORMAL EXIT CONDITIONS: AL = IF TIMER HAS NOT PASSED 

24 HRS SINCE LAST READ. 
<>0 IF ON ANOTHER DAY. 
CX = HIGH WORD OF COUNT 
DX = LOW WORD OF COUNT 
REGISTERS MODIFIED: AL, CX, DX 



2. PURPOSE OF ENTRY: 
INPUT CONDITIONS: 



REGISTERS MODIFIED: 



SET CURRENT CLOCK (TIMER DATA AREA) 
AH = OIH 

CX = HIGH WORD OF COUNT 
DX = LOW WORD OF COUNT 
AH 



3. PURPOSE OF ENTRY: READ TIME OF REAL TIME CLOCK 
INPUT CONDITIONS: AH = 02H 
NORMAL EXIT CONDITIONS: CH = HOURS IN BCD 

CL = MINUTES IN BCD 
DH = SECONDS IN BCD 
DL = 00 - NOT DAYLIGHT SAVINGS 

= 01 - DAYLIGHT SAVINGS 
CF FLAG SET IF CLK NOT OPERATING 
AX, CX, DX 



ERROR EXIT CONDITIONS: 
REGISTERS MODIFIED: 



4. PURPOSE OF ENTRY: 
INPUT CONDITIONS: 



RESTRICTIONS: 



REGISTERS MODIFIED: 



SET TIME OF REAL TIME CLOCK 
AH = 03H 

CH = HOURS IN BCD 
CL = MINUTES IN BCD 
DH = SECONDS IN BCD 
DL = 1 IF DAYLIGHT SAVINGS OPTION. 
ELSE 0. 
DL SHOULD = 1 OR = ONLY. 
DL MADE TO = ITS OWN BITO. 
AX 
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5. PURPOSE OF ENTRY: READ DATE FROM REAL TIME CLOCK 
INPUT CONDITIONS: AH = 04H 

NORMAL EXIT CONDITIONS: CH = CENTURY IN BCD (19H OR 20H) 
CL = YEAR IN BCD 
DH = MONTH IN BCD 
DL = DAY OF MONTH IN BCD 

ERROR EXIT CONDITIONS: CF FLAG SET IF CLK NOT OPERATING 

REGISTERS MODIFIED: AX, CX, DX 

6. PURPOSE OF ENTRY: SET DATE OF REAL TIME CLOCK 
INPUT CONDITIONS: AH = 05H 

CH = CENTURY IN BCD (19H OR 20H) 
CL = YEAR IN BCD 
DH = MONTH IN BCD 
DL = DAY OF MONTH IN BCD 
REGISTERS MODIFIED: AX 

7. PURPOSE OF ENTRY: SET ALARM TIME OF REAL TIME CLOCK 
INPUT CONDITIONS: AH = 06H 

CH = HOURS IN BCD 
CL = MINUTES IN BCD 
DH = SECONDS IN BCD 
NORMAL EXIT CONDITIONS: CF FLAG = 
ERROR EXIT CONDITIONS: CF FLAG SET IF CLK NOT OPERATING 

CF FLAG SET IF ALARM ALREADY ENABLED 
RESTRICTIONS: THE USER MUST CODE A RTN AND PUT 

CORRECT ADDRESS IN THE VECTOR TABLE 
FOR INT 4AH. 
REGISTERS MODIFIED: AX 

8. PURPOSE OF ENTRY: RESET THE ALARM 
INPUT CONDITIONS: AH = 07H 
NORMAL EXIT CONDITIONS: NONE 
ERROR EXIT CONDITIONS: NONE 
REGISTERS MODIFIED: AX 

9. PURPOSE OF ENTRY: SET ALARM TIME OF RTC FOR POWER ON 
INPUT CONDITIONS: AH = 08H 

CH = HOURS IN BCD 
CL = MINUTES IN BCD 
DH = SECONDS IN BCD 
NORMAL EXIT CONDITIONS: CF FLAG = 

ERROR EXIT CONDITIONS: CF FLAG SET IF CLK NOT OPERATING 
CF FLAG SET IF ALARM ALREADY ENABLED 
REGISTERS MODIFIED: AX 

10. PURPOSE OF ENTRY: READ ALARM TIME OF RTC AND STATUS 
INPUT CONDITIONS: AH = 09H 
NORMAL EXIT CONDITIONS: 

CH = HOURS IN BCD 

CL = MINUTES IN BCD 

DH = SECONDS IN BCD 

DL = ALARM STATUS 

00 - ALARM NOT ENABLED (AIE=0) 

01 - ALARM ENABLED BUT WILL NOT POWER 

ON SYSTEM (AIE=1, EN_PON_ALRM=0) 

02 - ALARM ENABLED AND WILL POWER ON 

SYSTEM (AIE=1, EN_P0N_ALRM=1) 
ERROR EXIT CONDITIONS: CF FLAG SET IF CLK NOT OPERATING 
REGISTERS MODIFIED: AX, CX, DX 

NOTE: FUNCTION CALLS WITH AH NOT EQUAL TO THE 
ABOVE RESULT IN NO OPERATION 
WITH THE CARRY FLAGE BEING CLEARED 

INTERRUPTS: FUNCTIONS 0, 1 FORCED OFF (CLI) 
FUNCTIONS 2 - 9 FORCED ON (STI) 
ON EXIT RESTORED AS WERE 
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INTERNALLY REFERENCED ROUTINES: 



INITIAL I ZE_STATUS 

UPD_IN_PR 

SET_ALRM 



INITIALIZES RTC REGISTERS A THRU D 
WAITS UNTIL CLOCK NOT BEING UPDATED 
SETS RTC ALARM TIME BYTES AND ENABLES 
THE RTC ALARM 



EXTERNALLY REFERENCED ROUTINES: 
DDS 
GET_RTC_NMI 

PUT_RTC_NMI 

ENABLE_NMI 
DISABLE_NMI 



ESTABLISH SEGMENT 

ADDRESSES AND READS A RTC REGISTER 

AH = REGISTER #, AL = DATA READ 

ADDRESSES AND PUTS A RTC REGISTER 

AH = REGISTER #, AL = DATA PUT 

ENABLE NMI'S 

DISABLE NMI'S 



*************************************************** 



OOOl 



SET_CF EQU 01H 



0000 






T0D_PR0C 


PROC FAR 




0000 


FB 




STI 




INTERRUPTS ON FOR TIMER 


0001 


IE 




PUSH 


DS 


SAVE SEGMENT 


0002 


E8 


0000 E 


CALL 


DDS 


SET DATA SEGMENT 








-CHECK FOR 


FUNCTION REQUESTS AND 1 


0005 






RTC_CHKO: 






0005 


OA 


E4 


OR 


AH, AH 


IF PARAMETER AH=0 


0007 


74 


2B 


JZ 


RTC_0 


THEN READ TIMER 


0009 


FE 


CC 


DEC 


AH 


IF PARAMETER AH=1 


OOOB 


74 


3A 


JZ 


RTC_1 


THEN SET TIME 


OOOD 


80 


FC 09 


CMP 


AH, 9 


CHECK IF VALID DATA PASSED IN AH 
(0 <= AH <= 9) 


0010 


73 


06 


JAE 


TOD_NRET 


NORMAL RETURN IF NOT VALID 


0012 


E8 


0000 E 


CALL 


DISABLE_NMI 


DISABLE NMI'S 


0015 


EB 


40 90 


JMP 


RTC_CHK1 


GO CHECK FOR OTHER FUNCTIONS 








-TOD_PROC NORMAL RETURN 




0018 






TOD_NRET 






0018 


E8 


0000 E 


CALL 


ENABLE_NMI 


RE-ENABLE NMI'S 


001B 






TOD.RET: 






001B 


FB 




STI 




ENABLE INTERRUPTS FOR TIMER 


001C 


IF 




POP 


DS 


RECOVER SEGMENT 


001D 


55 




PUSH 


BP 




001E 


8B 


EC 


MOV 


BP,SP 




0020 


80 


66 06 FE 


AND 


BYTE PTR SS:[BP+6],N0T SET_CF 












RST CARRY OF FLAGS IN STACK 


0024 


5D 




POP 


BP 




0025 


CF 




IRET 




RETURN WITH GOOD CODE (CF=0) 








-TOD_PROC ERROR RETURN 




0026 






TOD_ERET 






0026 


E8 


0000 E 


CALL 


ENABLE_NMI 




0029 


FB 




STI 




ENABLE INTERRUPTS FOR TIMER 


002A 


IF 




POP 


DS 


RECOVER SEGMENT 


002B 


55 




PUSH 


BP 




002C 


8B 


EC 


MOV 


BP,SP 




002E 


80 


4E 06 01 


OR 


BYTE PTR SS:[BP+6-,SET_CF ; SET CARRY OF FLAGS 


0032 


5D 




POP 


BP 




0033 


CF 




IRET 




RETURN WITH ERROR CD (CF=1) 








-GET T 


I M E R DAT A 


FUNCTION OOH 


0034 






RTC_0 : 






0034 


FA 




CLI 




, DISABLE INTERRUPTS FOR READ 


0035 


AO 


0070 R 


MOV 


AL,TIMER_OFL 


, GET OVERFLOW, AND 


0038 


C6 


06 0070 R 00 


MOV 


TIMER_OFL,0 


, RESET THE FLAG 


003D 


8B 


OE 006E R 


MOV 


CX,TIMER_HIGH 


, CX RETURNS TIMER_HIGH DATA 


0041 


8B 


16 006C R 


MOV 


DX,TIMER_LOW 


, DX RETURNS TIMER-LOW DATA 


0045 


EB 


D4 


JMP 


TOD_RET 


, NORMAL RETURN WITH TMR DATA 






' 


-SET T 


I m e R 


FUNCTION 01H - 
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0047 








RTC_1: 






0047 


FA 






CLI 




DISABLE INTERRUPTS FOR READ 


0048 


89 


16 006C R 


MOV 


TIMER_LOW,DX 


SET TIMER_LOW = TO PARAM DX 


004C 


89 


OE 006E R 


MOV 


TIMER_HIGH,CX 


SET TIMER_HIGH = TO PARAM CX 


0050 


C6 


06 0070 R 00 


MOV 


TIMER_OFL,0 


RESET OVERFLOW 


0055 


EB 


C4 




JMP 


TOD_RET 


NORMAL RTN AFTER SETTING TMR 










-CHECK FOR FUNCTION REQUESTS 2 AND 3 - - 


0057 








RTC_CHK1 






0057 


FE 


CC 




DEC 


AH 


IF PARAMETER AH=2 


0059 


74 


07 




JZ 


RTC_2 


THEN GET RTC TIME 


005B 


FE 


CC 




DEC 


AH 


IF PARAMETER AH=3 


005D 


74 


2D 




JZ 


RTC_3 


THEN SET RTC TIME 


005F 


E9 


OOEE 


R 


JMP 
-GET R 


RTC_CHK2 
T C TIM E- — 


GO CHECK FOR OTHER FUNCTIONS 
FUNCTION 02H 


0062 








RTC_2: 






0062 


E8 


01FE 


R 


CALL 


UPD_IN_PR 


CLOCK OPERATING? 


0065 


73 


02 




JNC 


RTC_2A 


YES, GO AROUND 


0067 


EB 


BD 




JMP 


TOD_ERET 


NO, ERROR RETURN 


0069 








RTC_2A: 






0069 


B4 


00 




MOV 


AH,RTC_TSEC 


ADDRESS AND 


006B 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_TSEC (RegO) 


006E 


8A 


FO 




MOV 


DH,AL 


DH RETURNS TSEC DATA 


0070 


B4 


02 




MOV 


AH,RTC_TMIN 


ADDRESS AND 


0072 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTCTMIN (Reg2) 


0075 


8A 


C8 




MOV 


CL,AL 


CL RETURNS TMIN DATA 


0077 


B4 


04 




MOV 


AH,RTC_THRS 


ADDRESS AND 


0079 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_THRS (Reg4) 


007C 


8A 


E8 




MOV 


CH,AL 


CH RETURNS THRS DATA 


007E 


2A 


D2 




SUB 


DL,DL 


SET NOT-DAYLIGHT-SAVINGS 


0080 


B4 


OB 




MOV 


AH,RTC_MODE 


GET RTC_MODE (RegB) 


0082 


E8 


0000 


E 


CALL 


GET_RTC_NMI 




0085 


A8 


01 




TEST 


AL,SET_DAY LIGHT 


DAYLIGHT SAVINGS SET? 


0087 


74 


01 




JZ 


RTC_2B 


NO, JUMP AROUND 


0089 


42 






INC 


DX 


YES, SET DL=01 


008A 


EB 


8C 




RTC_2B: 
-SET R 


JMP TOD_NRET 
T C TIM E 


NORMAL RETURN WITH TIME 
FUNCTION 03H — - 


008C 








RTC_3: 






008C 


E8 


01FE 


R 


CALL 


UPD_IN_PR 


CLOCK OPERATING? 


008F 


73 


03 




JNC 


RTC_3A 


YES, GO AROUND 


0091 


E8 


01E5 


R 


CALL 


INITIALIZE_STATUS 


NO, INIT CONTROL/STATUS 
REG.S (A-D) 


0094 








RTC_3A: 






0094 


B4 


00 




MOV 


AH,RTC_TSEC 


ADDRESS AND SET 


0096 


8A 


C6 




MOV 


AL,DH 


RTC.TSEC (RegO) = TO 


0098 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


TSEC PARAMETER, CH 


009B 


B4 


02 




MOV 


AH,RTC_TMIN 


ADDRESS AND SET 


009D 


8A 


CI 




MOV 


AL,CL 


RTCTMIN (Reg2) = TO 


009F 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


TMIN PARAMETER, CL 


00A2 


B4 


04 




MOV 


AH,RTC_THRS 


ADDRESS AND SET 


00A4 


8A 


C5 




MOV 


AL,CH 


RTC.THRS (Reg4) = TO 


00A6 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


THRS PARAMETER, CH 


00A9 


B4 


OB 




MOV 


AH,RTC_MODE 


ADDRESS AND 


00AB 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_MODE (RegB) 


OOAE 


24 


71 




AND 


AL,AIE_ENABLE+UIE_EN/ 


\BLE+PIE_ENABLE+SET_DAYLIGHT 
RESET UNUSED FLAGS 
CLEAR ALL OTHERS. 


OOBO 


80 


E2 0] 




AND 


DL,SET_DAYLIGHT 


SET DL = TO ITS BITO 


00B3 


OA 


C2 




OR 


AL,DL 


IF DSE=1, KEEP, ELSE DSE=DL. 


00B5 


OC 


02 




OR 


AL,SET_24HR 


TURN ON 24HR-M0DE 


00B7 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


ADDR AND SET RTC_M0DE (REG B 



ROM BIOS 2-157 



OOBA 


B4 


OE 




MOV 


AH,RTC_DIAG_STAT 


ADDRESS AND 


OOBC 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_DIAG_STAT (RegE) 


OOBF 


24 


7F 




AND 


AL,NOT RTC_TIME_BAD 


, RESET RTC_TIME_BAD FLAG (=0) 


OOC1 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


PUT BACK RTC_DIAG_STAT (RegE 


00C4 


E9 


0018 


R 


JMP 
I G E T R 


TOD_NRET 
T C DAT E-- 


, NORMAL RTN AFTER SETTING TIM 
FUNCTION 04H 


00C7 








RTC_4: 






OOC7 


E8 


01FE 


R 


CALL 


UPD_IN_PR 


CLOCK OPERATING? 


OOCA 


73 


03 




JNC 


RTC_4A 


YES, GO AROUND 


OOCC 


E9 


0026 


R 


JMP 


TOD_ERET 


NO, ERROR RETURN 


OOCF 








RTC_4A: 






OOCF 


B4 


07 




MOV 


AH,RTC_MDAY 


ADDRESS AND 


OOD1 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_MDAY (Reg7) 


00D4 


8A 


DO 




MOV 


DL,AL 


DL RETURNS DAY OF MON. DATA 


00D6 


B4 


08 




MOV 


AH,RTC_MON 


ADDRESS AND 


00D8 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_MON (Reg8) 


OODB 


8A 


FO 




MOV 


DH,AL 


DH RETURNS MONTH DATA 


OODD 


B4 


09 




MOV 


AH,RTC_YEAR 


ADDRESS AND 


OODF 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_YEAR (Reg9) 


OOE2 


8A 


C8 




MOV 


CL,AL 


CL RETURNS YEAR DATA 


00E4 


B4 


32 




MOV 


AH,RTC_CENTURY 


ADDRESS AND 


00E6 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_CENTURY (Reg50/32H) 


00E9 


8A 


E8 




MOV 


CH,AL 


CH RETURNS CENTURY DATA 


OOEB 


E9 


0018 


R 


JMP 
CHECK FOR 


TOD_NRET 
FUNCTION REQUESTS 4, 5 


NORMAL RETURN WITH DATE 
AND 6 


OOEE 








RTCCHK2 






OOEE 


FE 


CC 




DEC 


AH 


IF PARAMETER AH=4 


OOFO 


74 


D5 




JZ 


RTC_4 


THEN GET RTC DATE 


OOF2 


FE 


CC 




DEC 


AH 


IF PARAMETER AH=5 


00F4 


74 


07 




JZ 


RTC_5 


THEN SET RTC DATE 


OOF6 


FE 


CC 




DEC 


AH 


IF PARAMETER AH=6 


00 F8 


74 


3B 




JZ 


RTC_6 


THEN SET RTC ALARM 


00 FA 


EB 


59 90 


JMP 


RTC_CHK3 


GO CHECK FOR REMAINING FUNCT 










S e T R 


T C DAT E 


FUNCTION 05H .— 


OOFD 








RTC_5: 






OOFD 


E8 


01FE 


R 


CALL 


UPD_IN_PR 


CLOCK OPERATING? 


0100 


73 


03 




JNC 


RTC_5A 


YES, GO AROUND 


0102 


E8 


01E5 


R 


CALL 


INITIALIZE_STATUS 


NO, INIT CONTROL/STATUS 
REG.S (A-D) 


0105 








RTC_5A: 






0105 


B4 


06 




MOV 


AH,RTC_WDAY 


ADDRESS AND 


0107 


BO 


00 




MOV 


AL,0 


CLEAR 


0109 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


RTC_WDAY (Reg6) 


010C 


B4 


07 




MOV 


AH,RTC_MDAY 


ADDRESS AND SET 


010E 


8A 


C2 




MOV 


AL,DL 


RTC_MDAY (Reg7) = TO 


0110 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


DAY OF MON. PARAMETER, DL 


0113 


B4 


08 




MOV 


AH,RTC_MON 


ADDRESS AND SET 


0115 


8A 


C6 




MOV 


AL,DH 


RTC_MON (Reg8) = TO 


0117 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


MONTH PARAMETER, DH 


011A 


B4 


09 




MOV 


AH,RTC_YEAR 


ADDRESS AND SET 


one 


8A 


CI 




MOV 


AL,CL 


RTC_YEAR (Reg9) = TO 


011E 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


YEAR PARAMETER, CL 


0121 


B4 


OB 




MOV 


AH,RTC_MODE 


ADDRESS AND 


0123 


E8 


0000 


E 


CALL 


GET_RTC_NMI 


GET RTC_MODE (RegB) 


0126 


24 


7F 




AND 


AL,NOT SET.CLOCK 


TURN OFF SET-MODE ONLY 


0128 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


ADDR AND SET RTC_MODE (RegB) 


012B 


B4 


32 




MOV 


AH,RTC_CENTURY 


ADDRESS AND SET 


012D 


8A 


C5 




MOV 


AL,CH 


RTC.CENTURY (Reg50/32H) = TO 


012F 


E8 


0000 


E 


CALL 


PUT_RTC_NMI 


CENTURY PARAMETER, CH 
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0132 E9 0018 R 



JMP 



T0D_NRET 



; KML RTN AFTER SETTING DATE 



0190 
0192 
0194 
0197 
0199 
019B 
019D 



-SET RTC ALARM- 



FUNCTION 06H 



0135 
0135 
0138 
013B 
013D 
0140 
0140 



0143 
0143 
0145 
0148 
014A 



E8 01A9 R 
3D 0000 
75 03 
E9 0026 R 

E9 0018 R 



B4 OB 

E8 0000 E 

24 DF 

E8 0000 E 



RTC_6 : 
CALL 
CMP 
JNE 
JMP 

RTC_6A: 
JMP 



SET_ALRM 
AX,0 
RTC_6A 
TOD_ERET 

TOD_NRET 



SET ALARM REGISTERS 
GOOD RET_CODE RETURNED? 
...YES, CONTINUE. 
...NO, ERROR RET. 

NML RTRN AFTER SETTING ALARM 



-RESET RTC ALARM- 



FUNCTION 07H 



014D 80 26 OOAO R FB 



RTC_7 : 
MOV 
CALL 
AND 
CALL 

AND 



AH,RTC_MODE 
GET_RTC_NMI 
AL,NOT AIE_ENABLE 
PUT_RTC_NMI 



ADDRESS AND 
GET RTC_MODE (RegB) 
RESET ALARM INT ENABLE 
ADDR & PUT RTC_MODE (RegB) 



RTC_WAIT_FLAG,NOT PON_ALRM_PEND ; RST PWR BY ALARM 



0152 E9 0018 R 



JMP TOD_NRET 
-CHECK FOR FUNCTION REQUESTS 7, 



0155 
0155 
0157 
0159 
015B 
015D 



0160 
0160 
0163 
0166 
0168 
016B 



FE CC 
74 EA 
FE CC 
74 03 
EB 14 90 



RTC_CHK3: 
DEC 
JZ 
DEC 
JZ 
JMP 



AH 

RTC_7 

AH 

RTC_8 

RTC_9 



NML RTRN RESETTING ALARM 
AND 9 



IF PARAMETER AH=7 

THEN RESET ALARM 

IF PARAMETER AH=8 

THEN SET RTC ALARM POWER-ON 

PARAM AH=9, GET ALARM TIME & 

STATUS 



-SET RTC ALARM FOR POWER ON- 



ES 01A9 R 
3D 0000 
75 03 
E9 0026 R 
80 OE OOAO 



0170 E9 0018 R 



RTC_8: 

CALL 

CMP 

JNE 

JMP 
RTC_8A: OR 

JMP 



FUNCTION 08H 

SET_ALRM ; SET ALARM REGISTERS 

AX,0 ; GOOD RET_CODE RETURNED? 

RTC_8A ; ...YES, CONTINUE. 

TOD_ERET ; ...NO, ERROR RET. 

RTC_WAIT_FLAG,PON_ALRM_PEND 

; SET PWR ON BY ALARM PENDING 

TOD_NRET ; NML RTRN AFTER SETTING ALARM 



-GET RTC ALARM AND STATUS- 



FUNCTION 09H 



0173 
0173 
0176 
0178 
017B 
017B 
017D 
0180 



E8 01FE 
73 03 
E9 0026 

B4 01 
E8 0000 
8A FO 



0182 B4 03 

0184 E8 0000 E 

0187 8A C8 

0189 B4 05 

018B E8 0000 E 

018E 8A E8 



2A D2 

B4 OB 

E8 0000 E 

A8 20 

74 OB 

FE C2 

F6 06 OOAO R 04 



RTC_9 : 

CALL UPD_IN_PR 

JNC RTC_9A 

JMP TOD_ERET 
RTC_9A: 

MOV AH,RTC_ASEC 

CALL GET_RTC_NMI 

MOV DH,AL 

MOV AH,RTC_AMIN 

CALL GET_RTC_NMI 

MOV CL,AL 

MOV AH,RTC_AHRS 

CALL GET_RTC_NMI 

MOV CH,AL 

SUB DL,DL 

MOV AH,RTC_MODE 

CALL GET_RTC_NMI 

TEST AL,AIE_ENABLE 

JZ EXIT9 

INC DL 

TEST RTC_WAIT_FLAG,PON_ALRM_PEND 



CLOCK OPERATING? 
YES, GO AROUND 
NO, ERROR RETURN 

ADDRESS AND 

GET RTC_ASEC (Regl) 

DH RETURNS ASEC DATA 

ADDRESS AND 

GET RTC_AMIN (Reg3) 

CL RETURNS AMIN DATA 

ADDRESS AND 

GET RTC_AHRS (Reg5) 

CH RETURNS AHRS DATA 

SET DL TO ZERO 

ADDRESS AND 

GET RTC_MODE (RegB) 

RTC ALARM DISABLED (AIE=0)? 

YES, RETURN DL=0 

DL=1 
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01A2 74 02 
01A4 FE C2 
01A6 E9 0018 R 



JZ EXIT9 
INC DL 
EXIT9: JMP T0D_NRET 



IS PWR ON BY ALARM PENDING? 

NO, RETURN DL=1 

YES, RETURN DL=2 

NML RTRN W/ALRM TIME & STAT 



-SUBROUTINES- 



SET_ALARM 

FUNCTION: IF RTC ALARM IS DISABLED AND THE CLOCK IS OPERATING, 
THE ALARM TIME AND ENABLE THE RTC ALARM. 

INPUT: DH = ALARM SECONDS IN BCD 
CL = ALARM MINUTES IN BCD 
CH = ALARM HOURS IN BCD 

OUTPUT: AX = ERROR RETURN CODE 
AX <> GOOD RETURN CODE 



SET 



REGISTERS MODIFIED: AX 



01A9 








01A9 


B4 


OB 




01AB 


E8 


0000 


E 


01AE 


A8 


20 




01B0 


74 


03 




01B2 


33 


CO 




01B4 


C3 






01B5 








01B5 


E8 


01FE 


R 


01B8 


73 


03 




01BA 


E8 


01E5 


R 


01BD 








01BD 


B4 


01 




01BF 


8A 


C6 




01C1 


E8 


0000 


E 


01C4 


B4 


03 




01C6 


8A 


CI 




01C8 


E8 


0000 


E 


01CB 


B4 


05 




01CD 


8A 


C5 




01CF 


E8 


0000 


E 


01D2 


B4 


OB 




01D4 


E8 


0000 


E 


01D7 


24 


7F 




01D9 


OC 


20 




01DB 


E8 


0000 


E 


01DE 


E4 


61 




01E0 


24 


F7 




01E2 


E6 


61 




01E4 


C3 






01E5 









SET_ALRM 


PROC NEAR 




MOV 


AH,RTC_MODE 


; ADDRESS AND 


CALL 


GET_RTC_NMI 


; GET RTC.MODE (RegB) 


TEST 


AL,AIE_ENABLE 


; IF ALARM DISABLED (AIE=0) 


JZ 


C0NT1 


; THEN CONTINUE 


XOR 


AX, AX 


; ELSE CLEAR AX AND 


RET 




; RETURN 


C0NT1: 






CALL 


UPD_IN_PR 


; CLOCK OPERATING? 


JNC 


C0NT2 


; YES, GO AROUND 


CALL 


INITIALIZE_STATUS 


; NO, INIT CONTROL/STATUS 
; REG.S (A-D) 


C0NT2: 






MOV 


AH,RTC_ASEC 


; ADDRESS AND SET 


MOV 


AL,DH 


; RTC_ASEC (Regl) = TO 


CALL 


PUT_RTC_NMI 


; ASEC PARAMETER, DH 


MOV 


AH,RTC_AMIN 


; ADDRESS AND SET 


MOV 


AL,CL 


; RTC_AMIN (Reg3) = TO 


CALL 


PUT_RTC_NMI 


; AMIN PARAMETER, CL 


MOV 


AH,RTC_AHRS 


; ADDRESS AND SET 


MOV 


AL,CH 


; RTC_AHRS (Reg5) = TO 


CALL 


PUT_RTC_NMI 


; AHRS PARAMETER, CH 


MOV 


AH,RTC_MODE 


; ADDRESS AND 


CALL 


GET_RTC_NMI 


; GET RTC.MODE (RegB) 


AND 


AL,NOT SET.CLOCK 


; SET MODE OFF (SET=0) 


OR 


AL,AIE_ENABLE 


; ENABLE ALARM INT. (AIE=1) 


CALL 


PUT_RTC_NMI 


; ADDR AND SET RTC_MODE (RegB) 


IN 


AL,NMI_CNTL 


; ENABLE RTC NMI FOR ALARM 


AND 


AL,NOT DIS_ALARM 




OUT 


NMI_CNTL,AL 




RET 




; RETURN TO RTC_6 OR RTC_8 


SET_ALRM 


ENDP 





2-160 ROM BIOS 



I N I T I AL I Z E_STATUS 

FUNCTION: INITIALIZE RTC CONTROL AND STATUS REGISTERS 
REG A = 976.6 USEC PERIODIC INTERRUPT 

32.768 KHZ TIME BASE 
REG B = ENABLE SET, 24HR, BCD MODES 

DISABLE ALL INTERRUPTS AND DAYLIGHT SAVINGS 
READ REG C AND D TO CLEAR STATUS 



INPUT: 



NONE 



OUTPUT: NONE 



REGISTERS MODIFIED: AX 



01E5 

01E5 B4 OA 

01E7 BO 26 

01E9 E8 OOOO E 



INITIALIZE_STATUS PROC 
MOV AH,RTC_UP_STAT 
MOV AL,26H 
CALL PUT_RTC_NMI 



NEAR 
ADDRESS AND INITIALIZE 
RTC_UP_STAT (RegA) TO GIVE 
**INT.=976.6 MICRO SEC. 



01EC B4 OB 
01EE BO 82 
01F0 E8 0000 E 



MOV AH,RTC_MODE ; ADDRESS AND INITIALIZE 
MOV AL,SET_CL0CK+SET_24HR ; RTC_MODE (RegB): (=82H) 
CALL PUT_RTC_NMI ; * MODES ON... SET, 24HR, BCD 
; * DSABLE ALL OTH (NO DYLGHT) 



01F3 
01F5 
01F8 
01FA 
01FD 
01FE 



B4 OC 
E8 0000 
B4 OD 
E8 0000 
C3 



MOV 
CALL 
MOV 
CALL 
RET 
INITIALIZE_STATUS 



AH,RTC_INT_STAT 
GET_RTC_NMI 
AH,RTC_COND_STAT 
GET_RTC_NMI 

ENDP 



GET RTC_INT_STAT (RegC) 
TO INITIALIZE IT 
GET RTC_COND_STAT (RegD) 
TO INITIALIZE IT 
RETURN TO CALLER 



UPD_IN_PR 



FUNCTION: 



WAIT FOR RTC CLOCK TO UPDATE TIME. SET CARRY IF CLK NOT 
OPERATING (DOESN'T LEAVE UPDATE MODE AFTER 600 MSEC). 



INPUT: NONE 

OUTPUT: AX = CLOCK NOT UPDATING 

CARRY FLAG = 1 CLOCK NOT OPERATING 

= CLOCK HAS BEEN UPDATED 

REGISTERS MODIFIED: AX 



01FE 




01FE 


51 


01FF 


B9 0258 


0202 




0202 


B4 OA 


0204 


E8 0000 


0207 


A8 80 


0209 


74 05 


020B 


E2 F5 


020D 


33 CO 


020F 


F9 


0210 




0210 


59 


0211 


C3 


0212 





UPD_IN_PR 


PROC NEAR 


PUSH 


CX 


MOV 


CX,600 


UPDATE: 




MOV 


AH,RTC_UP_STAT 


CALL 


GET_RTC_NMI 


TEST 


AL,RTC_UIP 


01 


UPD_IN_PREND 


LOOP 


UPDATE 


XOR 


AX, AX 


STC 




UPD_IN_PREND: 


POP 


CX 


RET 




UPD_IN_PR 


ENDP 



SAVE CX 

SET LOOP COUNT 

ADDRESS AND 

GET RTC_UP_STAT (RegA) 

IF NOT UPDATING (UIP=0) 

THEN RETURN 

ELSE IF CX <> THEN LOOP 

ELSE CLEAR AX AND 

SET CARRY FOR ERROR SIGNAL 

RESTORE CX 
RETURN TO CALLER 



0212 



TOD_PROC ENDP 

SUBTTL SET TIME OF DAY 
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********* 



*********************************************************** 



ROUTINE-NAME : SET_TOD 



FUNCTION: 



SET TIMER DATA AREA FROM RTC TIME OR INITIAL TO ZERO 
(FOR COLD_MODE) 



ENTRY CONDITIONS: 

PURPOSE OF ENTRY: SET TIMER DATA AREA 

INPUT CONDITIONS: NONE 

RESTRICTIONS: NONE 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: TIMER DATA AREA SET FROM RTC TIME 
ERROR EXIT CONDITIONS: TIMER DATA AREA SET TO ZERO 
REGISTERS MODIFIED: AX RETURNS STATUS CODE FOR DISPATCHER 
AX = 4000 NON- FATAL ERROR AX = GOOD 

INTERRUPTS: LEFT AS ARE 

INTERNALLY REFERENCED ROUTINES: CVT_BINARY 

EXTERNALLY REFERENCED ROUTINES: DDS, GET_RTC_NMI, PUT_RTC_NMI , 

INT_1A 

********************************************************************* 



0212 
0212 IE 



SET.TOD PROC 



NEAR 



; SAVE SEGMENT 







• — 


RESET TIMER DATA AREA 


0213 


2B 


CO 


SUB 


AX, AX ; 


0215 


A2 


0070 R 


MOV 


TIMER_OFL,AL 


0218 


A3 


006C R 


MOV 


TIMER_LOW,AX ; 


021B 


A3 


006E R 


MOV 


TIMER_HIGH,AX ; 


021E 


B4 


OE 


MOV 


AH,RTC_DIAG_STAT ; 


0220 


E8 


0000 E 


CALL 


GET_RTC_NMI ; 


0223 


24 


84 


AND 


AL,RTC_TIME_BAD+RTC_F 


0225 


75 


56 


JNZ 


TOD_NOTSET ; 








GET RTC TIME 


0227 


F8 




CLC 




0228 


B4 


02 


MOV 


AH,GET_RTC_TIME ; 


022A 


CD 


1A 


INT 


1AH ; 


022C 


72 


3F 


JC 


SET_RET ; 








CHECK VALIDITY OF RTC TIME 


022E 


80 


FE 59 


CMP 


DH,SEC_MAX_LIMIT 


0231 


77 


3E 


JA 


BAD_TIME ; 


0233 


80 


F9 59 


CMP 


CL,MIN_MAX_LIMIT 


0236 


77 


39 


JA 


BAD.TIME ; 


0238 


80 


FD 23 


CMP 


CH,HRS_MAX_LIMIT ; 


023 B 


77 


34 


JA 
SET TIMER 


BAD_TIME ; 
FROM RTC TIME 


023D 


8A 


C6 


MOV 


AL,DH ; 


023F 


E8 


0286 R 


CALL 


CVT_BINARY 


0242 


B3 


12 


MOV 


BL,COUNTS_SEC ; 


0244 


F6 


E3 


MUL 


BL ; 


0246 


8B 


DO 


MOV 


DX,AX ; 


0248 


8A 


CI 


MOV 


AL,CL ; 


024A 


E8 


0286 R 


CALL 


CVT_BINARY ; 


024D 


BB 


0444 


MOV 


BX,COUNTS_MIN ; 


0250 


52 




PUSH 


DX ; 


0251 


F7 


E3 


MUL 


BX ; 


0253 


5A 




POP 


DX ; 


0254 


03 


DO 


ADD 


DX,AX 



RESET 
TIMER 
DATA 
AREA 

ADDRESS AND 

GET RTC_DIAG_STAT (RegE) 
ULED 

TIME BAD OR CLOCK ERROR? 
YES. TIMER SET TO ZERO 



SET CF=0 "NO ERROR" STATE 
FOR INT_1A, AH=2=GET RTC 
GET RTC TIME: CH=H CL=M DH=S 
IF CF=1, NML RETURN. CF=1 
CLK NOT OPERATING (UIP=1) 



IF RTCTSEC NOT IN LIMITS 

THEN RETURN 

IF RTC_TMIN NOT IN LIMITS 

THEN RETURN 

IF RTCTHRS NOT IN LIMITS 

THEN RETURN 



BCD TSEC INTO AL 
BINARY TSEC RETURNED IN AL 
BL <-- # OF COUNTS PER SEC 
AX <— # OF CNTS IN RTCTSEC 
DX IS TOTAL-CNTS ACCUMULATOR 

BCD TMIN INTO AL 

BINARY TMIN RETURNED IN AL 

BX <— # OF COUNTS PER MIN 

SAVE TOTAL 

AX <— # OF CNTS IN RTCTMIN 

RETRIEVE TOTAL 

ADD TMIN-CNTS TO TOTAL-CNTS 
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0256 


8A 


C5 


MOV 


AL,CH 


BCD THRS INTO AL 


0258 


E8 


0286 R 


CALL 


CVT_BINARY 


BINARY THRS RETURNED IN AL 


025B 


8B 


C8 


MOV 


CX,AX 


CX = HIGH WD (THRS-CNTS X 
# OF COUNTS PER HR.) 


025D 


B3 


07 


MOV 


BL,COUNTS_HOUR 


BL <-- # CNTS PER H (LOW WD) 
**TRUE CNTS/H IS 17 BIT VAL 


025F 


F6 


E3 


MUL 


BL 


AX <-- # OF COUNTS IN 
RTC_THRS (LOW WORD) 


0261 


03 


C2 


ADD 


AX,DX 


AX = TOTAL-COUNTS (LOW WORD) 


0263 


83 


Dl 00 


ADC 


CX,OOOOH 


CX = TOTAL-COUNTS (HIGH WD) 


0266 


89 


OE 006E R 


MOV 


TIMER_HIGH,CX 


MOVE TOTAL-COUNTS 


026A 


A3 


006C R 


MOV 


TIMER_LOW,AX 


TO TIMER DATA AREA 








---RETURN ROUTINES 




026D 






SET_RET: 






026D 


2B 


CO 


SUB 


AX, AX 


SET GOOD RETURN CODE 


026F 


IF 




POP 


DS 


RETSORE SEGMENT 


0270 


C3 




RET 




RETURN TO CALLER 


0271 






BAD.TIME: 






0271 


B4 


OE 


MOV 


AH,RTC_DIAG_STAT 


ADDRESS AND 


0273 


E8 


0000 E 


CALL 


GET_RTC_NMI 


GET RTC_DIAG_STAT (RegE) 


0276 


OC 


04 


OR 


AL,RTC_FAILED 


SET RTC_FAILED BIT (=1) 


0278 


E8 


0000 E 


CALL 


PUT_RTC_NMI 


PUT RTC_DIAG_STAT (RegE) 


027B 


EB 


FO 


JMP 


SET_RET 


RETURN WITH GOOD RETURN CODE 


027D 






TOD_NOTSET 






027D 


A8 


04 


TEST 


AL,RTC_FAILED 


IS RTC_FAILED SET (=1)? 


027F 


75 


EC 


JNZ 


SET.RET 


YES, RTN WITH GOOD RTN CODE 


0281 


B8 


4000 


MOV 


AX,N0N_FATAL_ERR*100H ; NO, RTN WITH ERR CD IN AH 


0284 


IF 




POP 


DS 


RESTORE SEGMENT 


0285 


C3 




RET 
—SUBROUTINES 




RETURN TO CALLER 



0286 



CVT_BINARY 

FUNCTION: CONVERT A 1 BYTE BCD NUMBER TO BINARY 



INPUT: 
OUTPUT: 



AL = BCD NUMBER 

AH =0, AL = BINARY NUMBER 



RESTRICTIONS: 



INVALID BCD NUMBER RESULTS IN INVALID BINARY NUMBER. 
NO RANGE CHECKING DONE 



0286 


8A 


EO 


0288 


51 




0289 


Bl 


04 


028B 


D2 


EC 


028D 


59 




028E 


24 


OF 


0290 


D5 


OA 


0292 


C3 




0293 






0293 







CVT_BINARY 

MOV 

PUSH 

MOV 

SHR 

POP 

AND 

AAD 



PROC 



NEAR 



AH,AL 

CX 

CL,4 

AH,CL 

CX 

AL,OFH 



RET 
CVT.BINARY 
SET.TOD ENDP 



INPUT: AL = BCD NUMBER 

OUTPUT: AH =0, AL = BINARY 

PLACE LEFT 

BCD DIGIT 

INTO RIGHT 

NIBBLE OF 

AH 

GET RID OF LEFT BCD DIGIT AL 

CONVERT UNPACKED BCD TO BIN 

(BINARY # IN AL, AH=0) 

RETURN TO CALLER 



ENDP 
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a*********************************************** 



ROUTINE-NAME 



RTC2_TST 



FUNCTION: CHECK REAL TIME CLOCK FOR TIME UPDATE FUNCTION. 
IF RTC_TIME_BAD FLAG IS SET INDICATED INVALID TIME, A 
CALL TO INITIALIZE_STATUS IS MADE TO SET THE RTC REGISTERS 
AND THE TIME, DATA, AND ALARM REGISTERS ARE SET TO 0. 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: CALLED BY POST TO CHECK RTC TIME FUNCTION 

INPUT CONDITIONS: DS:DATA 

RESTRICTIONS: NONE 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: AX = 

ERROR EXIT CONDITIONS: AH=40 (NON_FATAL ERR) AL=63 (RTC ERR) 

REGISTERS MODIFIED: AX RETURNS STATUS CODE FOR POST 

INTERRUPTS: LEFT AS ARE 

INTERNALLY REFERENCED ROUTINES: INITIALIZE_STATUS 

EXTERNALLY REFERENCED ROUTINES: GET_RTC_NMI, PUT_RTC_NMI 

*********************************************** 



0293 



RTC2_TST PROC NEAR 



0293 


B4 


OE 


0295 


E8 


0000 E 


0298 


A8 


80 


029A 


74 


11 


029C 


E8 


01E5 r' 


029F 


B4 


00 


02A1 


BO 


00 


02A3 


B9 


OOOA 


02A6 






02A6 


E8 


0000 E 


02A9 


FE 


C4 


02AB 


E2 


F9 


02AD 






02AD 


B4 


OB 


02AF 


E8 


0000 E 


02B2 


24 


7F 


02B4 


E8 


0000 E 


02B7 


B3 


02 


02B9 


2B 


C9 


02BB 






02BB 


BO 


OA 


02 BD 


E6 


70 


02BF 


E4 


71 


02C1 


A8 


80 


02C3 


75 


09 


02C5 


E2 


F4 


02C7 


FE 


CB 


02C9 


75 


FO 


02 CB 


EB 


10 90 


02CE 






02CE 


B9 


0258 



MOV 
CALL 
TEST 
JZ 



AH,RTC_DIAG_STAT 
GET_RTC_NMI 
AL,RTC_TIME_BAD 
RTC2_02 



CHECK FOR CLOCK NOT SET 



JUMP IF CLOCK IS SET 



MUST INITIALIZE AND SET TIME TO 0:0:0 DATE TO 0:0:0 



CALL 
MOV 
MOV 
MOV 

RTC2_01: 
CALL 
INC 
LOOP 



INITIAL I ZE_STATUS 

AH,RTC_TSEC 

AL,0 

CX,10 



PUT_RTC_NMI 

AH 

RTC2_01 



SET TIME AND DATE TO 



SET REGISTER TO 
INCREMENT REGISTER NUMBER 



INSURE SET.CLOCK BIT IS RESET 



RTC2_02: 
MOV 
CALL 
AND 
CALL 

MOV 
SUB 



AH,RTC_MODE 
GET_RTC_NMI 
AL,NOT SET_CLOCK 
PUT_RTC_NMI 

BL,02 
CX,CX 



TURN OFF SET_CLOCK 



OUTER LOOP COUNTER 
SET MAX LOOP TO 1.3 



SECONDS 



WAIT FOR UPDATE IN PROGRESS FLAG TO BE SET 



RTC2_03: 
MOV 
OUT 
IN 

TEST 
JNZ 
LOOP 
DEC 
JNE 
JMP 



AL,RTC_UP_STAT 

RTCR_PORT,AL 

AL,RTCD_PORT 

AL,RTC_UIP 

RTC2_04 

RTC2.03 

BL 

RTC2_03 

RTC2_FAIL 



READ CLOCK UPDATE STATUS 



UPDATE IN PROGRESS? 
JUMP IF YES 
KEEP LOOKING 



JUMP IF NEVER CAME ON 



WAIT FOR UPDATE IN PROGRESS FLAG TO BE RESET 



RTC2_04: 
MOV 



CX,600 



SET LOOP FOR 6 MSEC 
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02D1 
02D1 
02D3 
02D5 
02D7 
02D9 
02DB 



02DD 
02DD 
02DF 
02E2 
02E4 
02E7 
02EA 
02EC 



02EF 
02EF 
02F0 
02F1 
02F4 
02F7 
02FA 
02FD 
02FF 



0301 
0301 
0305 
0307 
030A 
030C 
030E 
0310 



BO OA 
E6 70 
E4 71 
A8 80 
74 14 
E2 F4 



B4 OE 

E8 0000 E 

OC 04 

E8 0000 E 

B8 4063 

B3 01 

EB 46 90 



IE 
07 

BB OOAO R 
B9 0001 
BA 86A0 
B8 8300 
CD 15 
B2 52 



RTC2_05: 
MOV 
OUT 
IN 

TEST 
JZ 
LOOP 



AL,RTC_UP_STAT 

RTCR_PORT,AL 

AL,RTCD_PORT 

AL,RTC_UIP 

RTC2_INTS 

RTC2_05 



RTC FAILED TO UPDATE 



RTC2_FAIL: 
MOV 
CALL 
OR 

CALL 
MOV 
MOV 
JMP 



AH,RTC_DIAG_STAT 

GET_RTC_NMI 

AL,RTC_FAILED 

PUT_RTC_NMI 

AX.4063H 

BL,01 

RTC2_EXIT 



READ CLOCK UPDATE STATUS 



UPDATE IN PROGRESS? 
JUMP IF RESET 
KEEP LOOKING 



; SET CLOCK FAILED FLAG 

; SET NON-FATAL ERROR FLAG 
; SET MFG ERROR CODE 



TEST PERIODIC INTERRUPT FOR POST AFTER 100 MSECS 



RTC2_INTS: 
PUSH 
POP 
MOV 
MOV 
MOV 
MOV 
INT 
MOV 



DS 

ES 

BX, OFFSET RTC_WAIT_FLAG 

CX.01 



SET ES:BX PTR RTC_WAIT_FLAG 



SET UP FOR INT 15 CALL 



DX,86A0H 
AX.8300H 
15H 
DL,82 



POST AFTER 100 MSECS 

POST ON EVENT FUNCTION CALL 



SET MAX TIME CNT TO 110 MSEC 



WAIT FOR POST FLAG TO BE SET BY NMI HNDLR - EACH CNT ON DL = 1.35MS 

RTC2_WAIT: 

26: F6 07 80 TEST BYTE PTR ES:[BX-,PSTD ; WAIT FOR POSTED FLAG 

75 OB JNZ INT_DONE 

B9 0102 MOV CX,MS_DELAY ; DELAY FOR 1 MSEC 

E2 FE LOOP $ 

FE CA DEC DL 

75 Fl JNE RTC2_WAIT 

EB OD JMP SHORT RTC2_BAD ; BAD IF > 110 MSECS 



0312 
0312 
0315 
0317 
031B 
031D 



031F 
031F 
0321 
0323 
0326 
0328 
032B 
032F 
0332 



80 FA OF 

77 08 

26: 80 27 7F 

2B CO 

EB 15 



INT_DONE: 
CMP 
JA 
AND 
SUB 
JMP 



DL,15 ; OKAY IF > = 90 MSECS 

RTC2_BAD 

BYTE PTR ES:[BX-,NOT PSTD ; CLR POSTED FLAG 

AX, AX ; SET GOOD RETURN CODE 

SHORT RTC2_EXIT ; EXIT TEST 



PERIODIC INTERRUPT TEST FAILED 



B4 OB 

BO 00 

E8 0000 E 

FE C4 

E8 0000 E 

26: C6 07 00 

B8 4063 

B3 02 



0334 

0334 50 

0335 E4 61 
0337 OC 08 
0339 E6 61 
033B 58 
033C C3 
033D 



RTC2_BAD: 
MOV 
MOV 
CALL 
INC 
CALL 
MOV 
MOV 
MOV 



AH,RTC_MODE 

AL,0 

PUT_RTC_NMI 

AH 

GET_RTC_NMI 

BYTE PTR ES:[BX],0 

AX,4063H 

BL,02 



CLEAR ALL INTERRUPT ENABLES 



RD STAT TO CLR PENDING INTS 
CLEAR WAIT FLAG 
SET NON-FATAL ERROR FLAG 
SET MFG ERR CODE INTS BAD 



PERIODIC INTERRUPT TEST PASSED 



RTC2_EXIT: 

PUSH 

IN 

OR 

OUT 

POP 

RET 
RTC2_TST ENDP 



AX 

AL,NMI_CNTL 

AL,DIS_ALARM 

NMI_CNTL,AL 

AX 



; DISABLE ALARM NMI 
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Timer Interrupt 8 (TMR0-INT8) 



************************************************** 

TMR0_INT8 

DESCRIPTION: 

THIS ROUTINE HANDLES THE TIMER INTERRUPT FROM 

CHANNEL OF THE 8253 TIMER. INPUT FREQUENCY 

IS 1.19318 MHZ AND THE DIVISOR IS 65536, RESULTING 

IN APPROX. 18.2 INTERRUPTS EVERY SECOND. 

THE INTERRUPT HANDLER MAINTAINS A COUNT OF INTERRUPTS 

SINCE POWER ON TIME, WHICH MAY BE USED TO ESTABLISH 
TIME OF DAY. 

THE INTERRUPT HANDLER ALSO DECREMENTS THE MOTOR 

CONTROL COUNT OF THE DISKETTE, AND WHEN IT EXPIRES, 
WILL TURN OFF THE DISKETTE MOTOR, AND RESET THE 
MOTOR RUNNING FLAGS. 

THE INTERRUPT HANDLER WILL ALSO INVOKE A USER ROUTINE 

THROUGH INTERRUPT 1CH AT EVERY TIME TICK. THE USER 
MUST CODE A ROUTINE AND PLACE THE CORRECT ADDRESS IN 
THE VECTOR TABLE. 

INPUT: DS = DATA 

OUTPUT: AX=0 (GOOD RETURN) 

AH=40 (NON_FATAL ERROR) AL=63 (RTC ERROR) 

RESTRICTIONS: NONE 

REGISTERS MODIFIED: NONE 

INTERRUPTS: FORCED ON (STI) 

INTERNALLY REFERENCED ROUTINES: NONE 

EXTERNALLY REFERENCED ROUTINES: DDS, INT 1CH, INT 4AH 



033D 












TMR0_INT8 PROC FAR 




033D 


FB 










STI 




; INTERRUPTS BACK ON 


033E 


IE 










PUSH 


DS 




033F 


50 










PUSH 


AX 




0340 


52 










PUSH 


DX 


; SAVE MACHINE STATE 


0341 


E8 


0000 E 






CALL 


DDS 




0344 


FE 


OE 


007B 


R 




DEC 


EVENT_TIM_OUT 


; DEC WAIT ON EVNT TIMEOUT CTR 


0348 


FF 


06 


006C 


R 




INC 


TIMER_LOW 


; INCREMENT TIME 


034C 


75 


04 








JNZ 


T4 


; TEST_DAY 


034E 


FF 


06 


006E 


R 




INC 


TIMER_HIGH 


; INCREMENT HIGH WORD OF TIME 










CHECK 


TIMER FOR 


24 HOUR ROLL OVER 




0352 












T4: 




; TEST_DAY 


0352 


83 


3E 


006E 


R 


18 


CMP 


TIMER_HIGH,COUNTS_DAY_HI ; TST FOR CNT = 24 HOURS 


0357 


75 


15 








JNZ 


T5 


; DISKETTE.CTL 


0359 


81 


3E 


006C 


R 


OOBO CMP 


TIMER_LOW,COUNTS_DAY_LO 


035F 


75 


OD 








JNZ 
TIMER HAS 


T5 
GONE 24 HOURS 


; DISKETTE_CTL 


0361 


2B 


CO 








SUB 


AX, AX 




0363 


A3 


006E R 






MOV 


TIMER_HIGH,AX 




0366 


A3 


006C R 






MOV 


TIMEfU.OW.AX 




0369 


C6 


06 


0070 


R 


01 


MOV 
TEST FOR 


TIMER_0FL,1 
DISKETTE TIME OUT 




036E 












T5: 




; DISKETTE.CTL 


036E 


80 


3E 


0040 


R 


00 


CMP 


MOTOR_COUNT,0 


; SKIP MOTOR OFF IF ALREADY 
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0373 


74 ID 


JE 


T6 


0375 


FE 0E 0040 R 


DEC 


MOTOR_COUNT 


0379 


75 17 


JNZ 


T6 



037B 
037D 
037F 
0381 
0383 
0385 



0387 
038C 
038E 
0391 
0392 
0392 



0394 
0396 



0398 
039A 
039C 
039E 
03A0 



03A2 
03A7 



03A9 
03AE 
03 BO 
03 BO 
03B1 
03 B2 
03B3 
03B4 



E4 77 
A8 80 
74 06 
24 BF 
OC 20 
E6 77 



80 26 003F 
BO 04 
BA 03 F2 
EE 



; RETURN IF COUNT NOT OUT 

DEGATE DISKETTE DRIVES BEFORE TURNING OFF MOTOR TO INSURE THAT A 
RE-SELECT OF A DRIVE WITHIN 800 USECS OF MTR OFF WILL NOT GLITCH DRV 
LINES 



DEGATE DISKETTE DRIVES 
DISKETTE POWER NMIS ENABLED? 
JUMP IF NOT 

ONLY DEGATE IF NMI ENABLED 



TURN OFF DISKETTE MOTORS AND DESELECT DRIVE 



IN 


AL,DSKT_CNTL ; 


TEST 


AL,DSKT_NMI ; 


JZ 


T5A ; 


AND 


AL,NOT FDC_PWR 


OR 


AL,DSKT_DEGATE ; 


OUT 


DSKT_CNTL,AL 



R CO T5A: 



AND 



MOTOR_STATUS,OCOH ; TURN OFF MTR STATUS BITS 



CD 1C 



BO 20 
E6 20 



BO OB 
E6 20 
E4 20 
OA CO 
75 OE 



MOV 
MOV 
OUT 
T6: 
INT 

END OF INTERRUPT 



AL,FDC_RUN 

DX,DRIVE_CNTL 

DX,AL 

1CH 



TRN OFF MTRS SLCTS & DMA/INTS 



XSFER CONTROL TO A USER RTNE 



MOV 
OUT 



AL.EOI 
INTAOO,AL 



; END OF INTERRUPT TO CNTLR 
CHECK FOR ANY OTHER INTERRUPTS IN SERVICE 

; SET TO READ INSERVICE REG 



MOV 

OUT 

IN 

OR 

JNZ 



AL,READ_ISR 

INTAOO,AL 

AL,INTAOO 

AL,AL 

T7 



READ IN-SERVICE-REG 

ANYTHING IN SERVICE? 

YES, ALARM SERVICE MUST WAIT 



CHECK FOR USER RTC ALARM ROUTINE PENDING ACTIVATION 



F6 06 OOAO 
74 07 



TEST 
JZ 



RTC_WAIT_FLAG,ALARM_PEND ; ALRM INTERRUPT PENDING? 
T7 : JUMP IF NOT 



CALL USER ALARM ROUTINE DUE TO RTC ALARM PENDING FLAG BEING SET 



80 26 OOAO 
CD 4A 

5A 
58 
IF 
CF 



R FD 



AND 

INT 
T7: 

POP 

POP 

POP 

IRET 
TMR0_INT8 



RTC_WAIT_FLAG,NOT ALARM_PEND ; TURN OFF FLAG 

4AH ; XSFER CTOL TO USR ALARM RTNE 



ENDP 



; RESET MACHINE STATE 
; RETURN FROM INTERRUPT 



03 B4 



ROMCODE ENDS 
END 
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System Services (B16SYSV) 



0000 



R0MC0DE SEGMENT BYTE PUBLIC 
ASSUME CS:R0MC0DE 
IDENT B16SYSV, 16,00 

tr *********************************************** 

INT 15H 

MODULE-NAME: B16SYSV 

CHANGE LEVEL: 0.0 

DATE LAST MODIFIED: 9/12/85 

DESCRIPTIVE-NAME: SYSTEM SERVICES (INT 15H) FUNCTION CALL SUPPORT 
ROUTINES. 



COPYRIGHT: 

FUNCTION: 
MODULE SIZE: 
ENTRY CONDITIONS: 



7396-917 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NO. G120-2083 

REFER TO ROUTINE PROLOGUE BELOW. 

1014 BYTES. 



PURPOSE OF ENTRY: EXECUTE SYSTEM SERVICE INDICATED BY INPUT PARAM. 

INPUT CONDITIONS: REFER TO ROUTINE PROLOGUES BELOW. 

RESTRICTIONS: FOR SPECIAL RESTRICTIONS REFER TO INDIVIDUAL FUNCTION 

ROUTINE PROLOGUES. 
INTERNALLY 
REFERENCED ROUTINES: SYS_PROF, EXT_EVENT, SYS_POWER_OFF, SYS_STAUS, 

POST.INTV, WAIT_INTV, DEV_BUSY, TMRO_CHK, 

INT_COMPLETE 

EXIT CONDITIONS: 



REFER TO ROUTINE PROLOGUE BELOW. 



NORMAL EXIT 
CONDITIONS: 
ERROR EXIT 

CONDITIONS: CARRY FLAG AND AH = 86H IS SET FOR INVALID FUNCTION 
REQUEST OR INVALID PARAMETER ERROR. 

REGISTERS MODIFIED: AH & RETURNED OUTPUT PARAM (REFER TO PLOGUES) . 

INTERNAL DATA AREAS/ 

TABLES : SYS_TABLE. 



EXTERNALLY 
REFERENCED ROUTINES: 



REFER TO EXTERNAL REFERENCES LIST. 



EXTERNALLY REFERENCED 

DATA AREAS : REFER TO EXTERNAL REFERENCES LIST 
CHANGE ACTIVITY: NONE 
**************************************************** 



2-168 ROM BIOS 



********************************************************************* 



EXTERNAL REFERENCES 
********************************************************************* 



EXTRN 


GET_RTC_REG 


NEAR 


EXTRN 


PUT_RTC_REG 


NEAR 


EXTRN 


DISABLE_NMI 


NEAR 


EXTRN 


ENABLE.NMI 


NEAR 


EXTRN 


DDS 


NEAR 


EXTRN 


VIDE0_I0_1 


NEAR 


EXTRN 


COM.POWER 


NEAR 


EXTRN 


BAT_SAV_SETUP 


NEAR 


EXTRN 


TMR0_INT8 


NEAR 


EXTRN 


SYS_DESCR_TABLE 


NEAR 


EXTRN 


COMMO_IO 


NEAR 


EXTRN 


MODEM_POWER_ON 


NEAR 


EXTRN 


SEND_COM 


NEAR 


EXTRN 


MODEM_CONFIG 


NEAR 



*************************************************************** 



PUBLICS 



******************** 



i*************************************** 



******** 



PUBLIC 
PUBLIC 



SYS_SERVICES 
EXT_EVENT 



0000 



SUBTTL SYSTEM SERVICE ROUTINES 
SYS_TABLE LABEL WORD 









;ENTRIES 


FOR 40H ■ 


- 44H 








0000 


0083 


R 




DW 


OFFSET 


SYS_PROF 


40H - 


READ/MOD SYS PROFILE 


0002 


01BE 


R 




DW 


OFFSET 


EXT_EVENT 


41H - 


WAIT ON EXTERNAL EVENT 


0004 


0298 


R 




DW 


OFFSET 


SYS_POWER_OFF 


; 42H 


- SYSTEM POWER OFF 


0006 


02C1 


R 




DW 


OFFSET 


SYS_STATUS 


43H - 


READ SYSTEM STATUS 


0008 


030F 


R 


;ENTRIES 


DW 
FOR 80H ■ 


OFFSET 
■ 86H 


SYS_MODEM_PWR 


; 44H 


- MODEM POWER CONTROL 


OOOA 


0472 


R 




DW 


OFFSET 


RETURN 


80H - 


DEVICE OPEN 


OOOC 


0472 


R 




DW 


OFFSET 


RETURN 


81H - 


DEVICE CLOSE 


OOOE 


0472 


R 




DW 


OFFSET 


RETURN 


82H - 


PROGRAM TERMINATION 


0010 


032A 


R 




DW 


OFFSET 


POST_INTV 


83H - 


POST ON ELPS TME INTV 


0012 


007 F 


R 




DW 


OFFSET 


JOYSTICK 


84H - 


JOYSTICK SUPPORT 


0014 


0472 


R 




DW 


OFFSET 


RETURN 


85H - 


SYSTEM REQUEST 


0016 


0380 


R 


;ENTRIES 


DW 
FOR 90H - 


OFFSET 
- 91H 


WAIT_INTV 


86H - 


WAIT ON ELPS TME INTV 


0018 


03DB 


R 




DW 


OFFSET 


DEV_BUSY 


90H - 


DEVICE BUSY 


001A 


0472 


R 




DW 


OFFSET 


INT_COMPLETE 


91H - 


DEV INTERRUPT COMPLETE 



System Services Interrupt Hex 15 
(SYS-SERVICES) 



ROUTINE-NAME : INT 15H, SYSTEM SERVICES 
FUNCTION: PROVIDES ACCESS TO SYSTEM SERVICES. 
ENTRY/EXIT CONDITIONS 

INPUT: OUTPUT: 
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CASSETTE I/O: 



AH = 0-3 



AH = 86H, CARRY SET 
PORT NOT PRESENT 



READ/MODIFY 

SYSTEM PROFILE: AH = 40H 

AL = READ 



AL = 1 MODIFY 

BX,CX CONTAINS PROFILE 
AL = 2 READ MODEM CONFIG 
AL = 3 MODIFY MODEM CONFIG 
(REFER TO SYS_PROF PROLOG FOR DETAILS) 

EXTERNAL EVENT: AH = 41H 

(REFER TO EXT_EVENT PROLOG FOR DETAILS) 



BX,CX CONTAINS 
PROFILE INFORMATION 
PROFILE IS MODIFIED 
AND EXECUTED 



SYSTEM POWER OFF: 

SYSTEM STATUS: 
MODEM POWER: 



AH = 42H 

(REFER TO SYS_POWER_OFF PROLOG FOR DETAILS) 

AH = 43H 

(REFER TO SYS_STATUS PROLOG FOR DETAILS) 

AH = 44H 

(REFER TO SYS_MODEM_POWER PROLOG FOR DETAILS) 



KEYBOARD INTERCEPT: 

AH = 4FH 
ENTRY CONDITION: AL = SCAN CODE OF KEY FROM INT 9 (PORT 60) 
EXIT CONDITION: CARRY SET IF INT 9 SHOULD PROCESS KEY 

CARRY CLEAR IF INT 9 SHOULD NOT PROCESS 
KEY BUT JUST ISSUE EOI AND EXIT LEVEL. 



(RESERVED FOR OPERATING SYSTEM USE 



DEVICE OPEN: 



DEVICE CLOSE: 



PROGRAM 
TERMINATION: 



POST ON TIME 
INTERVAL : 



AH = 80H 

BX = DEVICE ID 

CX = PROCESS ID 



AH = 81H 

BX = DEVICE ID 

CX = PROCESS ID 



AH = 82H 

BX = DEVICE ID 



THIS BIOS WILL RETURN WITH Y 

CARRY SET TO 

ENABLE INT 9 TO HANDLE KEY) 



IMMEDIATE RETURN 



IMMEDIATE RETURN 



IMMEDIATE RETURN 



AH = 83H 

AH = SET INTERVAL BIT 7 SET IN ES:-BX- 

ES.BX PTR TO BYTE IN CALLERS WHEN INTERVAL HAS 

STORAGE FOR POST NOTIFICATON ELAPSED 

CX,DX NUMBER OF MICROSECONDS TO 

ELAPSE BEFORE POSTING. 

AL = 1 CANCEL THE INTERVAL POST POST IS CANCELLED 



JOYSTICK 










SUPPORT: 


AH 


= 84H 




AH = 86H, CARRY SET 
PORT NOT PRESENT 


SYSTEM REQ. 










KEY CHANGE: 


AH 


= 85H 




IMMEDIATE RETURN 




AL 


= 00 - 


MAKE OF KEY 






AL 


= 01 - 


BREAK OF KEY 
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WAIT ON 

TIME INTERVAL: 



AH = 86H 

CX,DX NUMBER OF MSECONDS 
TO ELAPSE BEFORE RETURN 
TO CALLER 



RETURN AFTER TIME 
ELAPSED XXX 



DEVICE BUSY: 



AH = 90H 

AL = DEVICE TYPE (SEE CODE) 
01 - DISKETTE 



RETURN AFTER IRPT 
RECEIVED OR 2 SECOND 
TIMEOUT HAS OCCURRED 
CARRY SET IF TIMEOUT 



02 - KEYBOARD 



RETURN WHEN KEYBOARD 
BUFFER TAIL <> 
CURRENT VALUE 



03 - FFH ALL OTHERS 



IMMEDIATE RETURN 



DEVICE 

INTERRUPT 

COMPLETE: 



AH = 91H 

AL = DEVICE TYPE 
OOH -> 7FH 

SERIALLY REUSABLE DEVICES 
OPERATING SYSTEM MUST SERIALIZE 
ACCESS 
80H -> BFH 

REENTRANT DEVICES; ES:BX IS 
USED TO DISTINGUISH DIFFERENT 
CALLS (MULTIPLE I/O CALLS ARE 
ALLOWED SIMULTANEUSLY) 
COH -> FFH 

WAIT ONLY CALLS; THERE IS NO 
COMPLEMENTARY 'POST' FOR THESE 
WAITS - - THESE ARE TIMEOUT 
ONLY. TIMES ARE FUNCTION NUMBER 
DEPENDENT. 



IMMEDIATE RETURN 



DEVICE TYPE DESCRIPTION 



TIMEOUT 



OOH = DISK YES 

01H = DISKETTE YES 

02H = KEYBOARD NO 

FDH = DISKETTE MOTOR START YES 



READ SYSTEM 
DESCRIPTION 
TABLE : 



AH = COH AH=0, CARRY CLEAR 

ES:BX TABLE POINTER 
TABLE DEFINED AS FOLLOWS: 
BYTE 1&2: LENGTH OF TABLE IN BYTES 
STARTING AT BYTE 3 
3: SYSTEM MODEL BYTE 
4: SECONDARY MODEL BYTE 
5: BIOS REVISION NUMBER 
6: FEATURE INFORMATION BYTE 1: 



BYTE 
BYTE 
BYTE 
BYTE 
MSB: 
BIT 



7=1- BIOS USES DMA CHANNEL 3 
- DMA CHANNEL 3 NOT USED 
BIT 6 = 1 - 2ND INTERRUPT CONTROLLER INSTALLED 

- 2ND INTERRUPT CNTLR NOT INSTALLED 
BIT 5 = 1 - REAL TIME CLOCK PRESENT 

- REAL TIME CLOCK NOT PRESENT 
BIT 4 = 1 - INT 15H FUNCTION 4FH LINKAGE FROM 
BIOS INT9 SUPPORTED 
- LINKAGE NOT SUPPORTED 
Bit 3 = 1 - INT 15H FUNCTION 41H WAIT ON 
EXTERNAL EVENT SUPPORTED 
- INT 15H FUNCTION 41H NOT SUPPORTED 
Bit 2-0= RESERVED 
BYTES 

7-10: RESERVED FOR FUTURE FEATURE EXPANSION 
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REGISTERS MODIFIED : AH AND RETURNED PARAMETER REGISTERS 

INVALID FUNCTION REQUESTS (INVALID REGISTER AH VALUES) WILL RETURN AK = 86H 
AND THE CARRY FLAG WILL BE SET. 











ASSUME 


DS : DATA, ES: NOTHING 




OOIC 








SYS_SERVICES PROC 


FAR 






OOIC 


53 






PUSH 


BX 








OOID 


8B 


DC 




MOV 


BX,SP 






; GET POINTER TO SYSTEM STACK 


OOIF 


36 


8B 5F 


06 


MOV 


BX,SS:[BX+6] 




; GET FLAGS FROM SYSTEM STACK 


0023 


53 






PUSH 


BX 






; & SAVE IN STK FOR FLG REG LD 


0024 


9D 






POPF 








; RETORE FLAGS 


0025 


5B 






POP 


BX 






; RESTORE BX 


0026 


80 


FC 40 




CMP 


AH,40H 






; BELOW SYS SVCS 1 (CSST I/O)? 


0029 


72 


4E 




JB 


INV.FUN 






; INVLD PARM OR UNSUPTD CSST 


002B 


80 


FC 80 




CMP 


AH,80H 






; IS SELECT PARM ABOVE 80H? 


002E 


73 


OA 




JAE 


SYS_SV2 






; YES, CK SYS SVCS 2 REQUEST 








CHECK 


FOR SYSTEM 


SERVICES 1 


(AH 


= 40- 


44H) 


0030 


80 


FC 44 




CMP 


AH,44H 






; IN VALID SYS SVCS UP RANGE? 


0033 


77 


44 




JA 


INV_FUN 






; NO, INVALID FUNCTION 


0035 


80 


EC 40 




SUB 


AH,40H 






; YES, SET TABLE OFFSET 


0038 


EB 


17 




JMP 


SHORT SYS_ 


.SVC 




; GO LINK TO PROPER ROUTINE... 








CHECK 


FOR SYSTEM 


SERVICES 2 (AH 


= 8C 


-91H) 


003A 








SYS_SV2: 










003A 


80 


FC 91 




CMP 


AH,91H 






; IN VLD SYS SVCS 2 UP RANGE? 


003D 


77 


2C 




JA 


CHK_DESCR 






; YES, CK READ DESCRIPTOR... 


003F 


80 


EC 7B 




SUB 


AH,7BH 






; MAKE REL TO 4TH ENTRY IN TBL 


0042 


80 


FC 15 




CMP 


AH,15H 






; FUNCTION > = 90H? 


0045 


72 


05 




JB 


SYS_SV3 






; NO, GO SYS SERV 3 REQUEST... 


0047 


80 


EC 09 




SUB 


AH, 9 






; YES, CORRECT THE OFFSET 


004A 


EB 


05 




JMP 


SHORT SYS_ 


.SVC 




; GO LINK TO THE ROUTINE... 








CHECK 


FOR FUNCTIONS 87H-8FH 


THAT 


ARE 


INVALID 


004C 








SYS_SV3: 










004C 


80 


FC OC 




CMP 


AH, 12 






; IS PARM = 87H - 8FH CODE? 


004F 


73 


28 




JAE 


INV_FUN 






; YES, INVALID PARAMETER... 








LINK TO PROPER ROUTINE 








0051 








SYS_SVC: 










0051 


IE 






PUSH 


DS 






; SAVE DS,BP,AX USE IN SY SERV 


0052 


55 






PUSH 


BP 








0053 


50 






PUSH 


AX 








0054 


BD 


R 




MOV 


BP,DATA 






; SET DS <-- DATA SEGMENT - BP 


0057 


8E 


DD 




MOV 


DS,BP 








0059 


2A 


CO 




SUB 


AL,AL 






; SET AL TO 


005B 


86 


EO 




XCHG 


AH,AL 






; & FUNCT CODE IN LOW BYTE & 
; AH=0 RET CODE CLR 


005D 


Dl 


EO 




SHL 


AX,1 






; DOUBLE LINK TABLE OFFSET 


005F 


8B 


E8 




MOV 


BP,AX 






; GET OFFSET IN BP 


0061 


58 






POP 


AX 






; RESTORE AX 


0062 


2E 


FF 96 


0000 R 


CALL 


SYS_TABLE[BP] 




; JUMP TO PROPER ROUTINE 


0067 


5D 






POP 


BP 






; RESTORE BP,DS 


0068 


IF 






POP 


DS 








0069 


EB 


11 




JMP 


SHORT IMM_ 


.RET 




; SERVICE EXECUTED LEAVE... 








CHECK 


FOR READ SYSTEM DESCRIPTOR 


TABLE ADDRESS 


006B 








CHK_DESCR 










006B 


80 


FC CO 




CMP 


AH,OCOH 






; IS REQ PARM SYS DESC READ? 


006E 


75 


09 




JNE 


INV_FUN 






; NO, INVALID FN PARM REQUEST 


0070 


OE 






PUSH 


CS 






; SAVE CURRENT CODE SEGMENT 


0071 


07 






POP 


ES 






; SET ES TO POINT TO TABLE 


0072 


BB 


0000 E 




MOV 


BX, OFFSET 


SYS_ 


DESCR_TABLE ; POINT TO TABLE 


0075 


2A 


E4 




SUB 


AH, AH 






; CLEAR RETURN CODE 


0077 


EB 


03 




JMP 


SHORT IMM_RET 




; EXIT 
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; INVALID FUNCTION CODE RETURN POINT 



0079 




INV_FUN: 


0079 


B4 86 


MOV AH,86H 


007 B 


F9 


STC 


007C 




IMM_RET: 


007C 


CA 0002 


RET 2 


007F 




SYS_SERVICES ENDP 


007 F 




JOYSTICK PROC 


007F 


B4 86 


MOV AH,86H 


0081 


F9 


STC 


0082 
0083 


C3 


RET 
JOYSTICK ENDP 



NEAR 



SET BAD COMMAND RETURN CODE 
SET CARRY FLAG ON - ERROR 



RETURN WITH CURRENT FLAGS 



SET JOYSTICK NOT SUPPORTED 
SET CARRY FLAG - ERROR 



System Profile Services (SYS-PROF) 



INT 15H 

ROUTINE-NAME: SYS_PROF (AH = 40H) 

FUNCTION: ROUTINE TO ALLOW READ/MODIFY OPS ON THE SYS PROFILE 
INFORMATION. SYS PROFILE IS STORED IN CLK CHIP RAM. 

INPUT: AL = READ SYSTEM PROFILE INTO BX AND CX 

AL = 1 MODIFY SYSTEM PROFILE FROM BX AND CX 

AL = 2 READ MODEM SWITCH SETTING INTO BX 

AL = 3 WRITE MODEM SETTINGS FROM BX AND TURN ON MODEM 

DEFINITION OF BITS IN SYSTEM PROFILE REGISTERS (AL = 0,1) 



BH: 



BIT 7 



■ = SET SYSTEM COLD START MODE 
*1 = SET SYSTEM WARM START MODE 



BIT 6 - = DISABLE LOW BATTERY WARNING MESSAGE 
*1 = ENABLE LOW BATTERY WARNING MESSAGE 

BITS 5,4 - INITIAL VIDEO MODE 

00 = RESERVED 

01 = 40 X 25 MONOCHROME USING CGA/LCD 
*10 = 80 X 25 MONOCHROME USING CGA/LCD 

11 = 80 X 25 MONOCHROME USING MONO/LCD 

BITS 3,2 - *00 = IGNORE LCD HIGH INTENSITY ATTRIBUTE 

01 = MAP LCD HIGH INTENSITY TO UNDERSCORE 

10 = MAP LCD HIGH INTENSITY TO REVERSE VIDEO 

11 = MAP LCD HIGH INTENSITY TO ALTERNATE FONT 



BL: 
CH: 



BIT 1 

BIT 

BITS 7-0 
BITS 7-0 



*0 = INTERNAL MODEM NOT AVAILABLE ON BATTERY PWR 
1 = INTERNAL MODEM AVAILABLE ON BATTERY POWER 

*0 = RS232/PARALLEL NOT AVAILABLE ON BATTERY 
1 = RS232/PARALLEL AVAILABLE ON BATTERY 



RESERVED 

KEYBOARD INACTIVITY TIME BEFORE LCD BLANKING. 
(TIME IN MINUTES, *0 = DISABLE BLANKING). 
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0083 
0083 
0085 
0087 
008A 
008C 
008E 
0090 
0092 
0094 
0096 
0097 



009A 
009C 
009F 
00A1 
00A3 
00A6 
O0A8 



OOAB 
OOAD 
OOAF 
00B2 
00B4 
00B6 



CL: BITS 7-0 - KEYBOARD INACTIVITY TIME BEFORE SYSTEM POWER 
OFF (TIME IN MINUTES, *0 = DISABLE POWER OFF). 



DEFINITION OF BITS IN MODEM PROFILE REGISTER (AL = 2,3) 
BL: BIT 6,7 - NOT USED. 

BIT 5 - *0 = MANUAL ANSWER. / 1 = AUTO ANSWER. 



BITS 4-2 - B4 B3 B2 



PARITY AND FRAMING 



BITS 1-0 












MARK, 7 BITS DATA 








1 


SPACE, 7 BITS DATA 





1 





ODD, 7 BITS DATA 


*0 


1 


1 


EVEN, 7 BITS DATA 


1 








NONE, 8 BITS DATA 


1 





1 


RESERVED 


1 


1 





RESERVED 


1 


1 


1 


RESERVED 


Bl 


BO 




MODEM DATA RATE 










110 BITS PER SECOND 





1 




300 BITS PER SECOND 


*1 







1200 BITS PER SECOND 


*1 


1 




2400 BITS PER SECOND 



BH: 



*DEFAULT SETTINGS AFTER STANDY POWER LOST 
**NOT PRESENTLY SUPPORTED 



RESERVED FOR FUTURE USE. 



OUTPUT: AL = 80H IF MODEM CANNOT BE CONFIGURED OR IS NOT PRESENT. 
AL = OOH IF MODEM CONFIGURATION IS PERFORMED OK. 
AL = UNDEFINED FOR OTHER FUNCTIONS. 

REGISTERS 
MODIFIED: AX 



3C 01 

75 03 

E9 0125 R 

3C 00 

74 57 

3C 02 

74 08 

3C 03 

74 15 

F9 

E9 01BD R 



B4 ID 
E8 0000 
8A D8 
FE C4 
E8 0000 
8A F8 
E9 01BB 



B4 ID 
8A C3 
E8 0000 
FE C4 
8A C7 
E8 0000 



SYS_PR0F 

CMP 

JNE 

JMP 
SYS1: 

JE 

CMP 

JE 

CMP 

JE 

STC 

JMP 



PROC 
AL,1 
SYS1 
SPROF.MODIFY 

CMP 
SPROF_READ 
AL,2 

MPROF_READ 
AL 3 
MPROF_MODIFY 



NEAR 



AL,0 



SPROF_OUT 



IS REQUEST FOR MODIFY? 



YES 

NO, 

YES 

NO, 

YES 

NO, 

YES 

SET ERROR RETURN CODE 

EXIT ROUTINE 



GO SYS PROF MODIFY.. 
REQUEST FOR SYS READ? 
EXECUTE SYS PROF READ.. 
IS REQ FOR MODEM READ? 

IS REQ FOR MODEM WRITE? 



READ MODEM PROFILE 



MPROF_READ: 



MOV 



CALL 

MOV 

INC 

CALL 

MOV 

JMP 



GET_RTC_REG 

BL,AL 

AH 

GET_RTC_REG 

BH,AL 

SPROF_EXIT 



AH,RTC_M0D_PR0F1 
; READ IT 



ADDR PROFILE BYTE 



ADDRESS NEXT BYTE 
READ IT 



RETURN TO CALLER 



WRITE MODEM PROFILE AND CONFIGURE MODEM (IF POWER ON) 



MPROF_MODIFY: 



MOV 



MOV 

CALL 

INC 

MOV 

CALL 



AL,BL 

PUT_RTC_REG 

AH 

AL,BH 

PUT_RTC_REG 



AH,RTC_M0D_PR0F1 ; ADDR PROFILE BYTE 

; WRITE IT 

; ADDRESS NEXT BYTE 

; PROFILE IS NOW STORED 
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CHECK TO SEE IF 


MODEM IS PRESENT 




00 B9 


Al 


0010 


R 




MOV 


AX,EQUIP_FLAG 




GET EQUIPMENT FLAG 


00BC 


F6 


C4 20 




TEST 


AH,20H 




TEST MODEM INSTALLED BIT 


OOBF 


74 


19 






JZ 


M0DEM_ERR0R 




EXIT WITH ERROR 










IF 


3 RESENT, CHECK BATT PWR AND 


MODEM POWER-ON-BATT ALLOWED BIT 


00C1 


E4 


7F 






IN 


AL,PWR_STAT 




EXTERNAL POWER? 


00C3 


A8 


40 






TEST 


AL,EXT_PWR 






00C5 


75 


09 






JNZ 


MPR0F1 




YES, SKIP NEXT TEST 


00C7 


B4 


17 






MOV 


AH,RTC_SYS_PR0F1 


FIND PWR_ON_BATT BIT 


00C9 


E8 


0000 


E 




CALL 


GET_RTC_REG 




FROM PROFILE 


OOCC 


A8 


02 






TEST 


AL,M0DEM_BATT 




IS BATT PWRED MODEM OK? 


OOCE 


74 


OA 






JZ 


MODEM_ERROR 




NO, TURN OFF MODEM 










SET 


UP CONFIG DATA IN AL, AND 


CALL SET 


ROUTINE 


OODO 


8A 


C3 






MPR0F1: 


MOV 


AL,BL 


GET CONFIG INPUT DATA 


00D2 


E8 


0000 


E 




CALL 


MODEM_CONFIG 




AND DO IT 


00D5 


72 


03 






JC 


MODEM_ERROR 




ERROR OUT IF PROBLEM 


00D7 


E9 


01BB 


R 




JMP 


SPROF_EXIT 




INT RETURN 










ERROR FOUND IN 


CONFIGURING MODEM, TURN 


OFF AND EXIT 


OODA 










MODEM_ERROR: 






OODA 


BB 


0002 






MOV 


BX,0002H 




MODEM POWER OFF 


OODD 


E8 


0000 


E 




CALL 


C0M_P0WER 




NOW 


OOEO 


BO 


80 






MOV 


AL,80H 




ERROR RETURN 


00E2 


E9 


01BD 


R 




JMP 


SPR0F_0UT 














READ PROFILE ONLY 






00E5 


B4 


17 






SPROF.READ: MOV 


AH,RTC_SYS_PR0F1 ; GET HIGH PROF 


00E7 


E8 


0000 


E 




CALL 


GET_RTC_REG 






OOEA 


8A 


F8 






MOV 


BH,AL 






OOEC 


FE 


C4 






INC 


AH 






OOEE 


E8 


0000 


E 




CALL 


GET_RTC_REG 






00F1 


8A 


D8 






MOV 


BL,AL 






00F3 


FE 


C4 




GET 


INC 
LCD TIMEOUT 


AH 
VALUE 






00F5 


52 








PUSH 


DX 




SAVE DX 


00F6 


E8 


0000 


E 




CALL 


GET_RTC_REG 




GET DISPLAY TIMEOUT (LO) 


00F9 


8A 


DO 






MOV 


DL,AL 






OOFB 


FE 


C4 






INC 


AH 






OOFD 


E8 


0000 


E 




CALL 


GET_RTC_REG 




GET DISPLAY TIMEOUT (HI) 


0100 


8A 


FO 






MOV 


DH,AL 






0102 


Bl 


3C 






MOV 


CL,60 




DIVIDE TO GET MINUTES 


0104 


8B 


C2 






MOV 


AX,DX 






0106 


F6 


Fl 






DIV 


CL 






0108 


8A 


E8 




GET 


MOV 
SYSTEM OFF 


CH,AL 
TIMEOUT VALUE 




SAVE TIMEOUT IN SECS 


010A 


B4 


IB 






MOV 


AH,RTC_SYS_INACT 


GET SYSTEM INACTIVITY VA 


010C 


E8 


0000 


E 




CALL 


GET_RTC_REG 




GET DISPLAY TIMEOUT (LO) 


010F 


8A 


DO 






MOV 


DL,AL 






0111 


FE 


C4 






INC 


AH 






0113 


E8 


0000 


E 




CALL 


GET_RTC_REG 




GET DISPLAY TIMEOUT (HI) 


0116 


8A 


FO 






MOV 


DH,AL 






0118 


51 








PUSH 


CX 




SAVE CX REG 


0119 


Bl 


3C 






MOV 


CL,60 




DIVIDE TO GET MINUTES 


011B 


92 








XCHG 


AX,DX 






one 


F6 


Fl 






DIV 


CL 






011E 


59 








POP 


CX 




RESTORE CX 


011F 


8A 


C8 






MOV 


CL,AL 




SAVE TIMEOUT IN SECS 


0121 


5A 








POP 


DX 




RESTORE DX REGISTER 


0122 


E9 


01BB 


R 




JMP 


SPROF_EXIT 














MODIFY PROFILE 
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0125 


9C 




0126 


E8 


0000 E 


0129 


B4 


17 


012B 


8A 


C7 


012D 


E8 


0000 E 


0130 


FE 


C4 


0132 


8A 


C3 


0134 


E8 


0000 E 


0137 


53 




0138 


52 




0139 






0139 


8A 


C5 


013B 


2A 


E4 


013D 


B3 


3C 


013F 


F6 


E3 


0141 


8B 


D8 


0143 


B4 


19 


0145 


E8 


0000 E 


0148 


FE 


C4 


014A 


8A 


C7 


014C 


E8 


0000 E 


014F 


8A 


CI 


0151 


2A 


E4 


0153 


B3 


3C 


0155 


F6 


E3 


0157 


8B 


D8 


0159 


B4 


IB 


015B 


E8 


0000 E 


015E 


FE 


C4 


0160 


8A 


C7 


0162 


E8 


0000 E 


0165 


E8 


0000 E 


0168 


E8 


0000 E 


016B 


5A 




016C 


5B 




016D 


9D 





016E 


E4 


7F 


0170 


A8 


40 


0172 


74 


03 


0174 


80 


CF 03 


0177 


52 




0178 


8B 


D3 


017A 


2A 


FF 


017C 


F6 


C6 02 


017F 


74 


03 


0181 


80 


CF 01 


0184 






0184 


B3 


02 


0186 


E8 


0000 E 


0189 


2A 


FF 


018B 


F6 


C6 01 


018E 


74 


03 


0190 


80 


CF 01 


0193 






0193 


B3 


04 


0195 


B4 


IF 


0197 


E8 


0000 E 


019A 


A8 


10 


019C 


74 


03 


019E 


80 


CB 01 


01A1 


E8 


0000 E 



SPR0F_M0DIFY: PUSHF 

CALL DISABLE_NMI 

MOV AH,RTC_SYS_PR0F1 

MOV AL,BH 

CALL PUT_RTC_REG 

INC AH 

MOV AL,BL 

CALL PUT_RTC_REG 

PUSH BX 

PUSH DX 



DISABLE INTERRUPTS 
SELECT HIGH PROFILE BYTE 



SAVE REGISTERS 



CONVERT UNITS FROM MINUTES TO SECONDS FOR LCD INACTIVITY 



SPR0F_M01: 



MOV 

SUB 

MOV 

MUL 

MOV 

MOV 

CALL 

INC 

MOV 

CALL 



AL,CH 

AH, AH 

BL,60 

BL 

BX,AX 

AH,RTC_LCD_INACT 

PUT_RTC_REG 

AH 

AL,BH 

PUT_RTC_REG 



GET TIMEOUT IN MINUTES 
MULTIPLY TO GET SECONDS 

GET INACT VALUE ADDRESS 

INCREMENT ADDRESS 
WRITE HIGH VALUE 



CONVERT UNITS FROM MINUTES TO SECONDS FOR SYSTEM OFF INACTIVITY 



MOV 

SUB 

MOV 

MUL 

MOV 

MOV 

CALL 

INC 

MOV 

CALL 

CALL 

CALL 

POP 

POP 

POPF 



AL,CL 

AH, AH 

BL,60 

BL 

BX,AX 

AH,RTC_SYS_INACT 

PUT_RTC_REG 

AH 

AL,BH 

PUT_RTC_REG 

BAT_SAV_SETUP 

ENABLE_NMI 

DX 

BX 



GET TIMEOUT IN MINUTES 
MULTIPLY TO GET SECONDS 

GET INACT VALUE ADDRESS 

INCREMENT ADDRESS 
WRITE HIGH VALUE 

SETUP FOR BATTERY SAVE 

RESTORE REGISTERS 

RESTORE INTERRUPTS 



SET MODEM AND RS-232 POWER STATE IF ON BAT PWR ACCORDING TO PROFILE 
IF ON EXTERNAL POWER THEN FORCE MODEM AND RS-232 ON 



GET POWER STATUS 

ON EXTERNAL POWER? 

NO, GO ACCORDING TO PROF 

YES, SELECT FORCE TO POWER 

SAVE REGISTER 

SAVE & SET UP SYS PROF TEST 

SET DEFAULT TO POWER OFF 

PROF MODEM BAT POWER ACTIVE? 

NO, EXECUTE MODEM POWER OFF 

YES, ACTIVATE MODEM BAT PWR 

SELECT MODEM 

SET CORRESPONDING PWR STATE 

IN DEVICE SPECIFIED BY BL 

SET DEFAULT TO POWER OFF 
PROF RS-232 BATT PWR ACTIVE? 
NO, EXECUTE RS-232 POWER OFF 
YES, ACTIVATE RS-232 BAT PWR 

SET DEFAULT 
SELECT FEATURE CONFIG 
GET FEATURE CONFIG 
IS RS-232 PRIMARY COM PORT? 
NO, ITS NOT PRIMARY 
YES, SELECT RS-232 PRIMARY 
COM_POWER ; SET POWER STATE 



IN 


AL,PWR_STAT 


TEST 


AL,EXT_PWR 


JZ 


EXEC_PROF 


OR 


BH,03 


EXEC.PROF : PUSH DX 


MOV 


DX,BX 


SUB 


BH,BH 


TEST 


DH,MODEM_BATT 


JZ 


SET_MOD 


OR 
cct Mnn. 


BH,01 


ot l_l v IUU . 

MOV 


BL,ACT_MODEM 


CALL 


COM_POWER 


SUB 


BH,BH 


TEST 


DH,RS232_BATT 


JZ 


SET_RSP 


OR 


BH,01 


SET_RSP: 




MOV 


BL,ACT_RS232 


MOV 


AH,RTC_FEAT_CON 


CALL 


GET_RTC_REG 


TEST 


AL,PRI_INST 


JZ 


SET.RS232 


OR 


BL,SET_RS232_PRIM 


SET_RS232: CALL CO! 
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01A4 


8B 


DA 


MOV 


BX,DX 




; RESTORE SYS PROF 


01A6 


5A 




POP 
SET LCD HIGH 


DX 
INTENSITY 


SUBSTITUTE 


; SAVE REGISTER 


01A7 






SET_LCD_OPT: 






01A7 


53 




PUSH 


BX 




; SAVE BX REG 


01A8 


8A 


DF 


MOV 


BL,BH 






01AA 


DO 


EB 


SHR 


BL,1 






OlAC 


DO 


EB 


SHR 


BL,1 






OlAE 


80 


E3 03 


AND 


BL.03H 




; SAVE ONLY LCD SUBSTITUTE TYP 


01B1 


B4 


14 


MOV 


AH, 20 




; VIDEO FUNCTION CALL 20 


01B3 


BO 


02 


MOV 


AL,2 




; SET LCD HIGH INTENSITY SUB 


01B5 


9C 




PUSHF 








01B6 


OE 




PUSH 


CS 






01B7 


E8 


0000 E 


CALL 


VIDEO. 


I0_1 


; INT 10 CALL 


OIBA 


5B 




POP 


BX 




; RESTORE BX REG 


OIBB 






SPROF. 


.EXIT: 






OIBB 


2A 


CO 


SUB 


AL,AL 




; SET GOOD RETURN 


OIBD 






SPROF. 


.OUT: 






OIBD 


C3 




RET 








OIBE 






SYS_PROF 


ENDP 





External Event Services (EXT-EVENT) 



INT 15H 

ROUTINE-NAME: EXT_EVENT (AH = 41H) 

FUNCTION: TO WAIT FOR A SPECIFIC STATUS CHANGE AFTER AN EXT EVENT 
(DMA OR INTERRUPT) WHILE KEEPING THE SYS CLKS STOPPED TO 
CONSERVE BATTERY POWER. 
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INPUT: ES:DI CONTAINS POINTER TO BYTE IN USERS STORAGE FOR 
EVENT DETERMINATION (FOR AL=01-04) 
- R - 

DX CONTAINS ADDRESS OF I/O PORT ADDRESS TO BE READ FOR 
EVENT DETERMINATION (FOR AL=11-14) 

AL - EVENT TYPE CODE 

00 - RETURN AFTER ANY EVENT HAS OCCURRED 

01 - COMPARE: RETURN IF EQUAL 

02 - COMPARE: RETURN IF NOT EQUAL 

03 - TEST: RETURN IF NOT ZERO 

04 - TEST: RETURN IF ZERO 

11-14 - SAME FUNCTION AS ABOVE EXCEPT DX CONTAINS 
I/O PORT ADDRESS FOR EVENT DETERMINATION 

BH - CONDITION COMPARE OR MASK VALUE 
BL - TIMEOUT VALUE (IN 55 MSEC UNITS) 
BL = - NO TIME LIMIT 

OUTPUT: CARRY FLAG : SET - TIMEOUT REACHED 
CLEAR - EVENT OCCURRED 



REGISTERS 
MODIFIED: 



AX 



RESTRICTIONS: THIS ROUTINE WILL ENABLE PROC IRPTS NO TIMEOUT WILL 
OCCUR IF TMR IS NOT ENABLED WAITING ON NMI IRPTS 
IS NOT ALLOWED. 



01BE 



EXT_EVENT PROC NEAR 



01BE 


8A EO 


MOV 


AH,AL 


SAVE TYPE CODE 


01C0 


80 FB 00 


CMP 


BL,0 


NO TIME LIMIT FOR TIMEOUT? 


01C3 


74 07 


JE 


EXT_WT1 


NO, GO CHECK FOR WAIT TYPE 


01C5 


80 CC 20 


OR 


AH,20H 


YES, SET NO TIMEOUT FLAG 


01C8 


88 IE 007B R 


MOV 


EVENT_TIM_OUT,BL 


SAVE TIMEOUT VALUE 


01CC 




EXT_WT1: 






01CC 


24 OF 


AND 


AL,OFH 


SAVE ONLY TYPE 


01CE 


3C 00 


CMP 


AL,0 


WAIT ON ANY EVENT? 


01D0 


75 03 


JNE 


EXT_WT2 


NO, CHECK FOR SPECIFIC EVENT 


01D2 


E9 0259 R 


JMP 


ANY_WAIT 


YES, WAIT ON ANY EVNT TO RET 


01D5 




EXT_WT2 : 






01D5 


3C 01 


CMP 


AL,01 


COMPARE, RETURN EQUAL? 


01D7 


74 64 


JE 


CEQ_WAIT 




01D9 


3C 02 


CMP 


AL,02 




01DB 


74 44 


JE 


CNEQ_WAIT 


COMPARE , RETURN NOT EQUAL 


01DD 


3C 03 


CMP 


AL,03 




01DF 


74 24 


JE 


TNZ_WAIT 


TEST, RETURN NOT ZERO 


01E1 


3C 04 


CMP 


AL,04 




01E3 


75 1C 


JNE 


INV_EVENT 


IF NOT 4 THEN INVALID EVENT 




; TEST, 


RETURN IF 


ZERO 




01E5 




TZ_WAIT: 






01E5 


E8 026B R 


CALL 


PREP.WAIT 


, PREPARE FOR WAIT 


01E8 


F6 C4 10 


TEST 


AH,10H 


, TEST FOR I/O PORT READ 


01EB 


75 08 


JNZ 


TZ_WT1 




01ED 


26: 84 3D 


TEST 


BYTE PTR ES:[DI],BH 




01F0 


74 70 


JZ 


WAIT_DONE 


, RETURN IF ZERO 


01F2 


EB 06 90 


JMP 


TZ_WT2 
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01F5 




TZ_WT1: 








01F5 


EC 


IN 


AL,DX 




, READ FROM I/O PORT 


01F6 


84 C7 


TEST 


AL,BH 






01 F8 


74 68 


JZ 


WAIT_DONE 






01FA 




TZ_WT2 : 








01 FA 


E8 0277 R 


CALL 


EVENT_WAIT 






01FD 


72 64 


JC 


WAIT_EXIT 






01FF 


EB E4 


JMP 


TZ_WAIT 










INVALID EVENT SO 


SET CARRY ANE 


EXIT 




0201 




INV_EVENT 








0201 


F9 


STC 






, SET CARRY FOR INVAL EV 


0202 


EB 5F 90 


JMP 
TEST , RETURN IF 


WAIT_EXIT 
NOT ZERO 






0205 




TNZ_WAIT: 








0205 


E8 026B R 


CALL 


PREP_WAIT 




, PREPARE FOR WAIT 


0208 


F6 C4 10 


TEST 


AH,10H 




, TEST FOR I/O PORT READ 


020B 


75 08 


JNZ 


TNZ_WT1 






020D 


26: 84 3D 


TEST 


BYTE PTR ES 


[DI],BH 




0210 


75 50 


JNZ 


WAIT_DONE 




, RETURN IF ZERO 


0212 


EB 06 90 


JMP 


TNZ_WT2 






0215 




TNZ_WT1: 








0215 


EC 


IN 


AL,DX 




, READ FROM I/O PORT 


0216 


84 C7 


TEST 


AL,BH 






0218 


75 48 


JNZ 


WAIT.DONE 






021A 




TNZ_WT2 : 








021A 


E8 0277 R 


CALL 


EVENT_WAIT 






021D 


72 44 


JC 


WAIT_EXIT 






021F 


EB E4 


JMP 
COMPARE, RETURN 


TNZ_WAIT 
IF NOT EQUAL 






0221 




CNEQ_WAIT 








0221 


E8 026B R 


CALL 


PREP_WAIT 




, PREPARE FOR WAIT 


0224 


F6 C4 10 


TEST 


AH,10H 




, TEST FOR I/O PORT READ 


0227 


75 08 


JNZ 


CNEQ_WT1 






0229 


26: 38 3D 


CMP 


BYTE PTR ES- 


[DI],BH 




022C 


75 34 


JNE 


WAIT_DONE 




, RETURN IF ZERO 


022E 


EB 06 90 


JMP 


CNEQ_WT2 






0231 




CNEQ_WT1: 








0231 


EC 


IN 


AL,DX 




, READ FROM I/O PORT 


0232 


3A C7 


CMP 


AL,BH 






0234 


75 2C 


JNE 


WAIT_DONE 






0236 




CNEQ_WT2: 








0236 


E8 0277 R 


CALL 


EVENT_WAIT 






0239 


72 28 


JC 


WAIT_EXIT 






023B 


EB E4 


JMP 
COMPARE, RETURN 


CNEQ_WAIT 
[F ZERO 






023D 




CEQ_WAIT: 








023D 


E8 026B R 


CALL 


PREP_WAIT 




PREPARE FOR WAIT 


0240 


F6 C4 10 


TEST 


AH,10H 




TEST FOR I/O PORT READ 


0243 


75 08 


JNZ 


CEQ_WT1 






0245 


26: 38 3D 


CMP 


BYTE PTR ES: 


[DI],BH 




0248 


74 18 


JE 


WAIT_DONE 




RETURN IF ZERO 


024A 


EB 06 90 


JMP 


CEQ_WT2 






024D 




CEQ_WT1: 








024D 


EC 


IN 


AL,DX 




READ FROM I/O PORT 


024E 


3A C7 


CMP 


AL,BH 






0250 


74 10 


JE 


WAIT_DONE 






0252 




CEQ_WT2: 








0252 


E8 0277 R 


CALL 


EVENT_WAIT 
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0255 


72 


OC 


0257 


EB 


E4 


0259 
0259 


E8 


026B R 


025C 


E8 


0277 R 


025F 


EB 


02 90 


0262 






0262 


F8 




0263 






0263 


9C 




0264 


BO 


27 


0266 


E6 


72 


0268 


9D 




0269 


FB 




026A 


C3 





JC 
JMP 



WAIT_EXIT 
CEQ_WAIT 



WAIT ON ANY EVENT 



ANY_WAIT: 

CALL PREP_WAIT 

CALL EVENT_WAIT 

JMP WAIT_EXIT 

WAIT_DONE: 
CLC 



SET UP FOR CLOCK STOP 
EXECUTE CLOCK STOP 



CLEAR CARRY FLAG 



WAIT_EXIT: 
PUSHF 
MOV 
OUT 
POPF 
STI 
RET 



; SAVE FLAGS 
AL,DISABLE_SLEEP+CLOCK_RUN+GLOBAL_NMI 
CLOCK_CTL,AL 

RESTORE FLAGS 



ON NMIS 



RE-ENABLE INTERRUPTS 
EXIT 



THIS ROUTINE ENABLES THE SLEEP CLOCK BUT SETS THE STATE TO CLOCK RUN 
THIS MUST BE DONE IN ORDER TO COVER THE TIMING PROBLEM OF THE IRPT 
OCCURRING AFTER THE CONDITION TEST BUT BEFORE THE CLOCKS ARE STOPPED 



PROC NEAR 

; DISABLE INTERRUPTS 
AL,CLOCK_RUN+DISABLE_SLEEP ; DSABL NMI ST FL SPEED 
CLOCK_CTL,AL ; NO ENABLE SLEEP CLOCK 
$+2 ; DELAY 

AL,NOT DISABLE_SLEEP ; ENABLE SLEEP CLOCK 
CLOCK_CTL,AL 



ENDP 

THIS SUBROUTINE STOPS THE SYSTEM CLOCKS AND RTN AFTER THEY HAVE BEEN 
RESTARTED. IF AN INTERRUPT HAS OCCURRED BTWN PREP_WAIT & EVENT_WAIT 
THE SLEEP CLOCK WILL HAVE BEEN DISABLED BY HARDWARE & THE EVENT_WAIT 
ROUTINE WILL "FALL THROUGH" WITHOUT STOPPING THE CLOCKS. 
ONCE THE CLOCKS HAVE RESUMED, THE TIMEOUT VALUE IS CKED (IF USED) & 
THE CARRY FLAG SET IF TIMEOUT 



026B 




PREP_WAIT 


026B 


FA 


CLI 


026C 


BO 07 


MOV 


026E 


E6 72 


OUT 


0270 


EB 00 


JMP 


0272 


24 FB 


AND 


0274 


E6 72 


OUT 


0276 


C3 


RET 


0277 




PREP_WAIT 



0277 












EVENT_WAIT 


PROC NEAR 






0277 


E4 


72 








IN 


AL,CLOCK_CTL 






0279 


24 


FC 








AND 


AL,NOT CLOCK_ 


RUN 




027B 


OC 


20 








OR 


AL,GLOBAL_NMI 




TURN ON NMIS 


027D 


FB 










STI 






ENABLE INTERRUPTS 


027E 


E6 


72 








OUT 


CLOCK_CTL,AL 




STOP CLOCKS 


0280 


EB 


00 








JMP 


$+2 




DELAY 










CLOCKS 


HAVE RESTARTED 






0282 


F6 


C4 


20 






TEST 


AH,20H 




TIMEOUT TO BE TAKEN 


0285 


74 


OF 








JZ 


NO_TIMEOUT 




JUMP IF NOT 


0287 


38 


IE 


007B 


R 




CMP 


EVENT_TIM_OUT 


,BL 


CHECK ENOUGH TIME 


028B 


77 


07 








JA 


TIMEOUT 




IF ORIGINAL TIME THEN ERROR 


028D 


80 


3E 


007B 


R 


00 


CMP 


EVENT_TIM_OUT 


,0 


CHECK FOR TIME ELAPSED 


0292 


75 


02 








JNZ 


NO_TIMEOUT 






0294 












TIMEOUT: 








0294 


F9 










STC 






TIMEOUT - SET CARRY 


0295 


C3 










RET 






RETURN 


0296 












NO_TIMEOUT 








0296 


F8 










CLC 






NO TIME_OUT SO CLEAR CARRY 


0297 


C3 










RET 






RETURN 


0298 












EVENT_WAIT 


ENDP 






0298 












EXT_EVENT 


ENDP 
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System Power Off Services 
(SYS_POWER_OFF) 



INT 15H 

ROUTINE-NAME: SYS_P0WER_0FF (AH = 42H) 

FUNCTION: THIS ROUTINE POWERS THE SYSTEM DOWN BY THE REQUEST OF THE 
APPLICATION PROGRAM. IF WARM START WAS SELECTED THE PGM 
WILL RESUME IN THIS ROUTINE AND RETURN TO THE CALLER. 

INPUT: AL = 00 FOR IPL/RESUME DETERMINED BY PROFILE 
AL = 01 FOR RESUME MODE FORCED 

OUTPUT: THE SYSTEM IS POWERED OFF. IF SYS SUCCESSFULLY SUSPENDED, 
THIS ROUTINE WILL RETURN CONTROL TO THE USER WHEN THE POWER 
IS RE-ACTIVATED. 

REGISTERS 
MODIFIED: AX 



0298 










SYS_POWER_OFF PROC 


NEAR 




0298 


3C 


01 






CMP 


AL.01 




; REQUEST FOR RESUME MODE? 


029A 


75 


05 






JNE 


SYS_P0FF1 






029C 


80 


OE 0016 


R 


40 


OR 


BIOS_STATUS,F 


_RESUME 


; SET FORCE RESUME FLAG 


02A1 










SYS_P0FF1: 






02A1 


80 


26 003F 


R 


CO 


AND 


MOTOR_STATUS, 


OCOH 


; RESET DISKETTE MOTORS 


02A6 


BA 


03F2 






MOV 


DX,03F2H 






02A9 


BO 


04 






MOV 


AL,04H 




; TURN OFF MOTORS/SELECT 


02AB 


EE 








OUT 


DX,AL 






02AC 


E4 


7F 






IN 


AL,PWR_STAT 




; ENSURE SUSPEND NMI ENABLED 


02AE 


24 


F7 






AND 


AL,NOT HDWR.RESET 


; TURN OFF RESET FLAG 


02B0 


OC 


04 






OR 


AL,EN_SUS_NMI 






02B2 


E6 


7F 






OUT 


PWR_STAT,AL 






02B4 


EB 


00 






JMP 


$+2 




; DELAY 


02B6 


OC 


02 






OR 


AL,REQ_POFF 




; REQUEST SYSTEM POWER OFF 


02 B8 


E6 


7F 






OUT 


PWR_STAT,AL 






02 BA 


B9 


0102 






MOV 


CX,MS_DELAY 




; DELAY 1 MSEC 


02BD 


E2 


FE 






LOOP 


$ 












POWER 


HAS BEEN 


RESTORED 






02BF 


F8 








CLC 






; SET GOOD RETURN 


02C0 


C3 








RET 








02C1 










SYS_POWER_0FF ENDP 
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System Status Services (SYS-STATUS) 



INT 15H 
ROUTINE-NAME: 



SYS_STATUS (AH = 43H) 



FUNCTION: 

INPUT: 
OUTPUT: 



THIS ROUTINE RETURNS THE CURRENT SYSTEM STATUS IN THE 
AL REGISTER AS DEFINED BELOW. 



NONE. 

AL CONTAINS SYSTEM STATUS AS FOLLOWS: 



I 7 | 6 | 5 | 4 | 3 | 2 | 1 | | 



I I I I 



I I I 



I I 
I I 



I 



> LCD DETACHED 

---> RESERVED 
RS-232 POWERED ON 

> MODEM POWERED ON 

-> POWER ACTIVATED BY RTC ALARM 

> STANDBY POWER LOST (RTC TIME BAD) 

> OPERATING ON EXTERNAL POWER 

--> LOW BATTERY 



REGISTERS 
MODIFIED : 



AX 



02C1 






SYS_STATUS PROC NEAR 




02C1 


53 




PUSH 


BX 


SAVE BX 


02C2 


B4 


21 


MOV 


AH,RTC_SYS_STAT 


SELECT POWER ON STAT 


02C4 


E8 


0000 E 


CALL 


GET_RTC_REG 


GET POWER ON STAT 


02C7 


24 


10 


AND 


AL,PON_ALRM 


SAVE ONLY POWER ON 


02C9 


8A 


D8 


MOV 


BL,AL 


ALARM STATUS 


02CB 


E4 


7F 


IN 


AL,PWR_STAT 


GET CURRENT POWER STATUS 


02CD 


24 


CO 


AND 


AL,LOW_BAT+EXT_PWR 


SAVE ONLY POWER STATUS 


02CF 


OA 


D8 


OR 


BL,AL 


SET COMBINED POWER STATS 


02D1 


B4 


OE 


MOV 


AH,RTC_DIAG_STAT 


SELECT RTC TIME 


02D3 


E8 


0000 E 


CALL 


GET_RTC_REG 


GET RTC TIME 


02D6 


A8 


80 


TEST 


AL,RTC_TIME_BAD 


IS RTC TIME BAD? 


02D8 


74 


03 


JZ 


SYS_STAT1 


NO, THEN GO READ SETTINGS 


02DA 


80 


CB 20 


OR 


BL,20H 


YES, SET RTC TIME BAD 


02DD 






SYS_STAT1: 


STANDBY POWER LOST 


02DD 


E4 


7C 


IN 


AL,KYBD_CNTL 


GET COMMO POWER STATUS 
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02DF 


8A 


F8 




MOV 


BH,AL ; 


02E1 


B4 


IF 




MOV 


AH,RTC_FEAT_CON ; 


02E3 


E8 


0000 E 


CALL 


GET_RTC_REG ; 


02E6 


A8 


40 




TEST 


AL,INTMOD_INST ; 


02E8 


74 


08 




JZ 
TEST MODEM FOR 


CHK_FOR_RS ; 
POWER ACTIVE 


02 EA 


F6 


C7 


02 


TEST 


BH,ACT_MODEM ; 


02ED 


74 


03 




JZ 


CHK_FOR_RS ; 


02EF 


80 


CB 


08 


OR 
TEST RS-232 FOF 


BL,08 ; 
POWER ACTIVE 


02F2 








CHK_FOR_ 


.RS: 


02F2 


A8 


80 




TEST 


AL,SERPLL_INST ; 


02F4 


74 


08 




JZ 


CHK_FOR_LCD ; 


02F6 


F6 


C7 


04 


TEST 


BH,ACT_RS232 


02 F9 


74 


03 




JZ 


CHK_FOR_LCD ; 


02FB 


80 


CB 


04 


OR 
TEST IF LCD IS 


BL,04 ; 
OPERATIVE 


02FE 








CHK_FOR_ 


.LCD: 


02FE 


B4 


20 




MOV 


AH,RTC_DSP_CON ; 


0300 


E8 


0000 E 


CALL 


6ET_RTC_REG ; 


0303 


A8 


03 




TEST 


AL,DSP_MLCD+DSP_CLCD ; 


0305 


75 


03 




JNZ 


SYS_STAT_EXIT ; 


0307 


80 


CB 


01 


OR 


BL.01 


030A 








SYS_STAT_EXIT: 


030A 


8A 


C3 




MOV 


AL,BL ; 


030C 


5B 






POP 


BX ; 


030D 


F8 






CLC 




030E 


C3 






RET 




030F 








SYS_STATUS ENDP 



SAVE THE STATUS 
SELECT FEATURE CONFIG 
GET FEATURE CONFIG 
INTERNAL MODEM PRESENT? 
NO, CHECK FOR RS-232 



YES, IS MODEM POWER ON? 
NO, CHECK FOR RS-232 CARD 
YES, SET MODEM ACTIVE 



IS RS-232 CARD INSTALLED? 
NO, JUMP TO LCD CHECK 
YES, IS RS-232 POWER ON? 
NO, JUMP TO LCD CHECK 
YES, SET RS POWER ACTIVE 



LOOK AT THE DISPLAY 

CONFIGURATION 

IS LCD CONFIGURED? 

YES, THEN LEAVE ROUTINE 

NO, LCD IS INOPERATIVE 

RESTORE STATUS BACK TO AL 

RESTORE BX REG 

SET NORMAL GOOD RETURN 



Modem Power Services 
(SYS-MODEM-PWR) 



INT 15H (AH = 44H) 

SYS_MODEM_PWR: THIS PROCEDURE TURNS ON OR OFF THE MODEM 
INPUT: AL = 0, POWER OFF; AL <> 0, POWER ON. 
OUTPUT: AL =0 IF SUCCESSFUL; AL = 80H IF NOT SUCCESSFUL 
REGISTERS USED: AX DESTROYED. 



030F 








SYS_MODEM_ 


PWR PROC NEAR 




030F 


OA 


CO 




OR 


AL,AL 


; TEST AL FOR COMMAND 


0311 


74 


OE 




JZ 


SYS_MOD_OFF 


; TURN MODEM OFF 


0313 






' 


SYS_MOD_ON 






0313 


B4 


ID 




MOV 


AH,RTC_M0D_PR0F1 


; GET THE PROFILE REG 


0315 


E8 


0000 


E 


CALL 


GET_RTC_REG 


; PLACE PROFILE IN AL 


0318 


E8 


0000 


E 


CALL 


M0DEM_C0NFIG 


; CONFIGURE AND POWER MODEM 


031B 


73 


OA 




JNC 


SYS_M0D_END 




031D 


BO 


80 




MOV 


AL,80H 


; ERROR EXIT 


031F 


EB 


08 




JMP 


SHORT SYS_MOD_EXIT 
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0321 




0321 


BB 0002 


0324 


E8 0000 E 


0327 




0327 


2A CO 


0329 




0329 


C3 



SYS_M0D_0FF: 

MOV BX,0002H ; SELECT MODEM 

CALL COM_POWER ; AND TURN OFF 

SYS_MOD_END: 

SUB AL,AL ; RETURN W/0 ERROR 

SYS_MOD_EXIT: 

RET 



032A SYS_MODEM_PWR ENDP 
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POST Interval Services (POST_INTV) 



INT 15H 

ROUTINE-NAME: P0ST_INTV (AH = 83H) 

FUNCTION: POST USER WHEN ELAPSED TIME INTERVAL HAS EXPIRED WITH NO 
WAIT. (RETURNS IMMEDIATELY AND POSTS OCCURRENCE VIA RTC 
INTERRUPTS) 

INPUT: AL = SET UP FOR POST ON ELAPSED TIME INTERVAL 
ES:BX POINTER TO BYTE IN CALLERS STORAGE FOR POST 
CX,DX NUMBER OF MICROSECONDS TO ELAPSE BEFORE POSTING 
(CX MOST SIGNIFICANT) 

AL = 1 CANCEL THE INTERVAL POST 

OUTPUT: FOR POST SET - RTC PERIODIC INTERRUPT IS ACTIVATED TO KEEP 

TRACK OF ELAPSED TIME. INTERRUPTS AT 

APPROXIMATELY A 1 MILLISECOND RATE. WHEN TIME 
HAS ELAPSED THE USER FLAG POINTED BY ES:BX WILL 
HAVE BIT 7 SET TO A 1. THE PERIODIC INTERRUPT 
WILL THEN BE TURNED OFF. 

FOR CANCEL - RTC PERIODIC INTERRUPT IS TURNED OFF AND THE 
POST ACTIVE FLAG IS RESET. 

REGISTERS 
MODIFIED: AX 



032A POST.INTV PROC NEAR 

032A B4 OB MOV AH,RTC_MODE 

032C 3C 00 CMP AL,0 

032E 74 14 JE P0STI_1 

CANCEL ANY OUTSTANDING INTERVAL 



0330 9C 



0331 
0334 
0337 
0339 
033C 
0341 



E8 0000 E 

E8 0000 E 

24 BF 

E8 0000 E 

80 26 OOAO R FE 

EB 37 90 



PUSHF 

CALL 

CALL 

AND 

CALL 

AND 

JMP 



DISABLE_NMI 
GET_RTC_REG 
AL 5 NOT PIE_ENABLE 
PUT_RTC_REG 



SET REGISTER NUMBER FOR RTC 
CHECK FOR SET 
MUST BE CLEAR 



DISABLE INTERRUPTS 



AND 8259 INTERRUPTS 

GET MODE 

RESET PERIODIC IRPT ENABLE 

SET MODE 

RTC_WAIT_FLAG,NOT INTERVAL_WAIT ; RST INTVL ACTIVE 
P0STI_3 ; ENABLE INTERRUPTS AND EXIT 



SET INTERVAL UNLESS ALREADY ACTIVE 



0344 P0STI_1: 

0344 F6 06 OOAO R 01 TEST 
0349 74 04 JZ 



RTC_WA I T_FL AG , I NT ERV AL_WA I T 
P0STI_2 



CHECK WAIT IN PROG 



WAIT IS ACTIVE SO SIGNAL ERROR 



034B F9 

034C EB 31 90 



STC 
JMP 



POSTI_EXIT 



ACTIVATE RTC PERIODIC INTERRUPT 



034F 
034F 
0350 
0353 
0357 
035B 
035F 



9C 

E8 0000 E 
8C 06 009A R 
89 IE 0098 R 
89 OE 009 E R 
89 16 009C R 



P0STI_2: 
PUSHF 
CALL 
MOV 
MOV 
MOV 
MOV 



DISABLE_NMI 

USER_FLAG_SEG,ES 

USER_FLAG,BX 

RTC_HIGH,CX 

RTC_LOW,DX 



SET ERROR 
RETURN 



DISABLE INTERRUPTS 
SET UP TRANSFER TABLE 
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0363 


80 


OE OOAO 


R 01 


OR 


RTC_WAIT_FLAG,INTERVAL_WAIT ; SET INTVL POST ACT 


0368 


26 


80 27 


7F 


AND 


BYTE PTR ES:[BX- 


NOT 


POSTED ; RST POST FLAG 


036C 


E8 


0000 


E 




CALL 


GET_RTC_REG 




GET MODE 


036F 


OC 


40 






OR 


AL,PIE_ENABLE 




ENABLE RTC PERIODIC IRPT 


0371 


E8 


0000 


E 




CALL 


PUT_RTC_REG 




SET MODE 


0374 


E4 


61 






IN 


AL,NMI_CNTL 




ENABLE ALARM INTERRUPT 


0376 


24 


F7 






AND 


AL,NOT DIS_ALARM 






0378 


E6 


61 






OUT 


NMI_CNTL,AL 






037A 










P0STI_3: 








037A 


E8 


0000 


E 




CALL 


ENABLE_NMI 




ENBL RTC ALARM AND SUSP NMIS 


037D 


9D 








POPF 






RESTORE INTERRUPT STATUS 


037E 


F8 








CLC 






SET GOOD RETURN 


037F 










POSTI_EXIT 








037F 


C3 








RET 








0380 










POST_INTV 


ENDP 







Wait Interval Services (WAIT_INTV) 









INT 15H 












ROUTINE-NAME: WAIT_INTV (AH = 86H) 








FUNCTION: 


WAIT FOR ELAPSED TIME TO EXPIRE BEFORE PASSING CONTROL 
THE USER. THIS FUNCTION USES THE RTC PERIODIC IRPT AND 
WAIT ON EXTERNAL EVENT TO CONSERVE BATTERY POWER. 








INPUT: 


CX,DX 


NUMBER OF MICROSECONDS TO ELAPSE BEFORE RETURNING. 








OUTPUT: 


RETURI^ 


WITH CARRY CLEAR DONE AFTER ELAPSED TIME REACHED. 








REGISTERS 












MODIFIED: 


AX 




0380 






WAIT_INTV 


PROC NEAR 


0380 


F6 


06 00A( 


) R 01 


TEST 


RTC_WAIT_FLAG,INTERVAL_WAIT ; TEST INTERVAL ACTIVE 


0385 


74 


04 




JZ 


WAIT_1 


0387 


F9 






STC 


; SET ERROR 


0388 


EB 


50 90 




JMP 


WINTV_EXIT ; RETURN 


038B 






WAIT_1: 




038B 


9C 






PUSHF 




038C 


E8 


0000 E 




CALL 


DISABLE_NMI 


038F 


8C 


IE 009/ 


\ R 


MOV 


USER_FLAG_SEG,DS ; SET UP TRANSFER TABLE 


0393 


C7 


06 009* 


3 R 


MOV 


USER_FLAG, OFFSET RTC_WAIT_FLAG 


OOAO 


R 










0399 


89 


OE 009 


I R 


MOV 


RTC_HIGH,CX 


039D 


89 


16 009 


: r 


MOV 


RTC_LOW,DX 


03A1 


80 


OE 00A( 


) R 01 


OR 


RTC_WAIT_FLAG,INTERVAL_WAIT ; SET FUNCTION ACTIVE 


03A6 


80 


26 00A( 


) R 7F 


AND 


RTC_WAIT_FLAG,NOT POSTED ; RESET POST FLAG 


03AB 


B4 


OB 




MOV 


AH,RTC_MODE ; GET MODE REGISTER 


03AD 


E8 


0000 E 




CALL 


GET_RTC_REG 


03 BO 


OC 


40 




OR 


AL,PIE_ENABLE ; ENABLE RTC PERIODIC IRPT 


03B2 


E8 


0000 E 




CALL 


PUT_RTC_REG ; SET MODE 


03B5 


E4 


61 




IN 


AL,NMI_CNTL ; ENABLE ALARM INTERRUPT 


03B7 


24 


F7 




AND 


AL,NOT DIS_ALARM 


03B9 


E6 


61 




OUT 


NMI_CNTL,AL 


03BB 


E8 


0000 E 




CALL 


ENABLE_NMI ; RE-ENABLE NMI'S 


03BE 


9D 






POPF 


; RESTORE FLAGS 



; WAIT ON EXTERNAL EVENT TO CONSERVE BATTERY PWR FOR THE ALLOTTED TIME 
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03BF 


06 










PUSH 


ES 




; 


SAVE REGISTERS 


03C0 


57 










PUSH 


DI 








03C1 


53 










PUSH 


BX 








03C2 


IE 










PUSH 


DS 






SET ES TO DATA SEGMENT 


03C3 


07 










POP 


ES 








03C4 


8B 


3E 


0098 


R 




MOV 


DI,USER_FLAG 




; 


GET POSTED BYTE ADDR IN ES:DI 


03C8 


BO 


03 








MOV 


AL,03 




• 


SET TEST & RTRN IF NOT ZERO 


03CA 


B7 


80 








MOV 


BH, POSTED 




• 


SET RTRN FOR INTERVAL POSTED 


03CC 


2A 


DB 








SUB 


BL,BL 




• 


SET NO TIME LIMIT 


03CE 


E8 


01BE R 






CALL 


EXT_EVENT 




■; 


WAIT ON EVENT 










TIME 


HAS ELAPSED, 


RESTORE REGISTERS 


AND 


TURN OF PERIODIC INTERRUPT 


03D1 


5B 










POP 


BX 






RESTORE REGISTERS 


03D2 


5F 










POP 


DI 








03D3 


07 










POP 


ES 








03D4 


80 


26 


OOAO 


R 


7E 


AND 


RTC_WAIT_FLAG 


NOT 


POSTED+INTERVAL_WAIT ; RST FUNCT 


03D9 


F8 










CLC 










03DA 












WINTV_EXIT 










03DA 


C3 










RET 










03DB 












WAIT_INTV 


ENDP 









Device Busy Services (DEV-BUSY) 



; INT 15H 




; ROUTINE-NAME: DEV_BUSY (AH = 


90H) 


; FUNCTION: THIS ROUTINE IS CALLED TO INDICATE THAT A DEV IS BUSY. 
; FOR THE DEVICE TYPE = DISKETTE, A RTRN IS NOT MADE UNTIL 
; A DISKETTE INTERRUPT HAS BEEN RECEIVED OR 2 SECONDS HAVE 
; ELAPSED (WHICHEVER IS FIRST). FOR THE DEV TYPE = KYBRD A 

RETURN WILL NOT BE MADE UNTIL T*HE KYBD BFR IS IN A NOT 
; EMPTY CONDITION. 


; ENTRY/EXIT 
; CONDITIONS: 

INPUT: 
; AL = DEVICE TYPE: 
; 01 - DISKETTE 


RETURN AFTER IRPT RECEIVED OR 2 
SECOND TIMEOUT HAS OCCURRED CARRY 
SET IF TIMEOUT 


• 02 - KEYBOARD 


RETURN WHEN KEYBOARD 
BUFFER HEAD <> BUFFER TAIL 


; FD - WAIT FOR 

; MOTOR STARTUP 


RETURN WHEN TIME HAS EXPIRED IF 
TIMER IS RUNNING OR IMMEDIATE 
RETURN WHEN NOT RUNNING ON ENTRY CH 
CONTAINS TIME TO WAIT IN 1/8 SEC 
UNITS 


; ALL OTHERS IMMEDIATE RETURN WITH CARRY CLEAR 


; REGISTERS 

; MODIFIED: AX 
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03DB 




DEV_BUSY 


PROC NEAR 






03DB 


57 


PUSH 


DI 


SAVE REGISTERS 




03DC 


06 


PUSH 


ES 






03DD 


53 


PUSH 


BX 






03DE 


BF R 


MOV 


D I, DATA 






03E1 


8E C7 


MOV 


ES.DI 


SET ES TO DATA 




03E3 


3C 01 


CMP 


AL,01 


IS DEVICE TYPE = 


= DISKETTE? 


03E5 


74 4B 


JE 


DSKT_BUSY 


YES, GO SERVICE 


FOR DISKETTE 


03E7 


3C 02 


CMP 


AL,02 


NO, DEVICE TYPE 


= KEYBOARD? 


03E9 


74 3A 


JE 


KYBD_WAIT 


YES, GO SERVICE 


FOR KEYBOARD 


03EB 


3C FD 


CMP 


AL,OFDH 


DEV TYPE = DSKT 


MTR STARTUP? 


03ED 


75 33 


JNE 


DEVB_CLEAR 


NO, RETURN WITH 


CARRY CLEAR 



WAIT FOR DISKETTE MOTOR STARTUP TIME TO ELAPSE 
WAIT TIME IS IN 125 MILLISECOND UNITS IN CH 



03EF 


E8 0442 R 


CALL 


TMRO.CHK 


CHECK FOR TIMER RUNNING 


03 F2 


73 4A 


JNC 


DEVB_EXIT 


IF NOT RUNNING THEN EXIT, NO 


03F4 


51 


PUSH 


CX 


WAIT 


03F5 


8A DD 


MOV 


BL,CH 


COPY TIME IN CH 


03 F7 


DO E5 


SHL 


CH,1 


MULTIPLY BY 3 


03F9 


02 DD 


ADD 


BL,CH 


WAIT TIME IS IN BL 



REQUEST CONTROLLER POWER ON TO OVERLAP PWR ON SEQ WITH MOTOR STARTUP 
DELAY 



SAVE TIME DLY IN TIMEOUT CTR 
RESTORE CX 
SAVE DX 

DO DUMMY READ TO PWR ON CNTL 
FOR MOTOR WAIT OVERLAP 
TIMER ROUTINE WILL DECRMNT 
TIME VAL EVENT_TIM_OUT WHILE 
CNTLR IS BEING POWERED ON 
BE BACK FROM NMI IF PWR WAS 
OFF HERE 
RESTORE DX 

EXIT IF MORE THAN ENOUGH TME 
RETRIEVE ADJUSTED WAIT TIME 

DON'T WAIT IF TIME EXPIRED 
SET CARRY TO SHOW TIMEOUT 
EXIT WITH TIME EXPIRED 

SET COMPARE MASK TO 

SET ES TO ROM SEGMENT 

SET ADDR IN ROM FOR DUMMY 

COMPARE 

RETURN ON COMPARE EQUAL 

WAIT FOR TIMEOUT TO OCCUR 



; EXIT ROUTINE 

WAITING FOR KEY IN KEYBOARD BUFFER 

PERFORM WAIT_ON_EVENT FOR BUFFERJHEAD <> BUFFER TAIL (LOW BYTES) 



DI, OFFSET BUFFER_TAIL ; POINT ES:DI TO BFR HEAD 
BH,BYTE PTR BUFFER_HEAD ; MASK TO CURRENT BFR TAIL 
AL,02 ; FN CODE=CMP, RTRN NOT EQUAL 

BL,BL ; NO TIMEOUT 

SHORT BUSY_WAIT 



03FB 


88 


IE 


007B R 


MOV 


EVENT. 


_TIM_OUT,BL 


03FF 


59 






POP 


CX 




0400 


52 






PUSH 


DX 




0401 


BA 


03 F4 


MOV 


DX,3F4H 


0404 


EC 






IN 


AL,DX 




0405 


90 






NOP 






0406 


5A 






POP 


DX 




0407 


38 


IE 


007B R 


CMP 


EVENT. 


_TIM_OUT,BL 


040B 


77 


31 




JA 


DEVB_EXIT 


040D 


8A 


IE 


007B R 


MOV 


BL,EVENT_TIM_OUT 


0411 


OA 


DB 




OR 


BL,BL 




0413 


75 


03 




JNE 


DEVB_01 


0415 


F9 






STC 






0416 


EB 


26 




JMP 


SHORT 


DEVB_EXIT 


0418 








DEVB_01: 






0418 


B7 


00 




MOV 


BH,0 




041A 


OE 






PUSH 


CS 




041B 


07 






POP 


ES 




041C 


2B 


FF 




SUB 


DI,DI 




041E 


BO 


01 




MOV 


AL,01 




0420 


EB 


19 


; RETURN 


JMP 
WITH CARRY 


SHORT 
CLEAR 


BUSY_WAIT 


0422 








DEVB_CLEAR 






0422 


F8 






CLC 






0423 


EB 


19 




JMP 


SHORT 


DEVB_EXIT 



0425 




KYBD_WAIT 


0425 


BF 001C R 


MOV 


0428 


8A 3E 001A R 


MOV 


042C 


BO 02 


MOV 


042E 


2A DB 


SUB 


0430 


EB 09 


JMP 



WAIT FOR DISKETTE INTERRUPT COMPLETE 
(INT_FLAG TO BE SET IN SEEK_STATUS) 



0432 
0432 



BF 003E R 



DSKT.BUSY: 
MOV 



DI, OFFSET SEEK_STATUS ; GET ADD OF DSKT INTR FLAG 
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0435 


B7 


80 


MOV 


BH,INT_FLAG 


0437 


BO 


03 


MOV 


AL,03 


0439 


B3 


25 


MOV 


BL,25H 


043B 






BUSY_WAIT 




043B 


E8 


01BE R 


CALL 


EXT_EVENT 


043E 






DEVB_EXIT 




043E 


5B 




POP 


BX 


043 F 


07 




POP 


ES 


0440 


5F 




POP 


DI 


0441 


C3 




RET 




0442 






DEV_BUSY ENDP 



INTERRUPT COMPLETE FLAG 

FN CODE = TEST, RETURN NOT 

SET TWO SECOND TIMEOUT 



INT 15H 



ROUTINE-NAME: TMRO_CHK 



FUNCTION: THIS ROUTINE CHECKS TO SEE IF TIMER IS SET UP AS FOLLOWS 
IRPT ENABLED TIMER COUNTING INT 8 VECT0R=TMR0_INT8 ADDR 



INPUT: 



NONE. 



0442 






0442 


50 




0443 


53 




0444 


IE 




0445 


B8 


0000 


0448 


8E 


D8 


044A 


Al 


0020 R 


044D 


IF 




044E 


3D 


0000 E 


0451 


75 


IB 


0453 


E4 


21 


0455 


A8 


01 


0457 


75 


15 


0459 


E4 


40 


045B 


8A 


EO 


045D 


E4 


40 


045F 


50 




0460 


5B 




0461 


E4 


40 


0463 


8A 


EO 


0465 


E4 


40 


0467 


3B 


C3 


0469 


74 


03 


046B 






046B 


F9 




046C 


EB 


01 


046E 






046E 


F8 




046F 






046F 


5B 




0470 


58 




0471 


C3 




0472 







OUTPUT: CARRY 


FLAG : SET 


- TIMER 


IS RUNNING 




CLEAR 


- TIMER 


NOT RUNNING 


REGISTERS 










MODIFIED: NONE. 








ASSUME 


DS:ABSO 








TMRO_CHK 


PROC NEAR 








PUSH 


AX 








PUSH 


BX 








PUSH 


DS 








MOV 


AX,0 








MOV 


DS,AX 








MOV 


AX,INT_ADDR 






; GET INT 8 OFFSET ADDRESS 


POP 


DS 








CMP 


AX, OFFSET TMRO_ 


_INT£ 


; CHECK FOR OUR TIMER ROUTINE 


JNE 


TMRO_NORUN 






; IF NOT THEN EXIT 


IN 


AL,INTA01 








TEST 


AL,01 






; CK FOR TMR IRPT ENABLED 


JNE 


TMR0_N0RUN 






; EXIT IF DISABLED 


IN 


ALJIMERO 






; MAKE SURE TIMER IS RUNNING 


MOV 


AH,AL 








IN 


AL,TIMERO 








PUSH 


AX 






; SAVE CURRENT TMR TIME CNT 


POP 


BX 






; RETRIEVE ORIGINAL COUNT 


IN 


ALJIMERO 






; RE-READ TIMER LOW 


MOV 


AH,AL 








IN 


ALJIMERO 






; RE-READ TIMER HI 


CMP 


AX,BX 






; COMPARE WITH ORIGINAL 


JE 


TMRO_NORUN 






; JUMP IF TIMER NOT RUNNING 


TMRO_OK: 










STC 








; SET CARRY TO INDICATE OKAY 


JMP 


SHORT TMRO_ 


EXT 






TMRO_NORUN : 








CLC 








; CLEAR CARRY 


TMRO_EXT: 










POP 


BX 






; RESTORE REGS 


POP 


AX 








RET 










TMRO_CHK 


ENDP 
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Interrupt Complete Services 
(INT_COMPLETE) 



; INT 15H 




; ROUTINE-NAME: 


INT_COMPLETE (AH = 91H) 


; FUNCTION: 


DUMMY INTERRUPT RETURN (FUNCTION NOT HANDLED BY BIOS) 


; INPUT: 


NONE. 


• OUTPUT: 


NONE. 


; REGISTERS 




; MODIFIED: 


NONE. 



0472 




INT.COMPLETE PROC NEAR 




0472 




RETURN: 




0472 


F8 


CLC 


; SET GOOD RETURN CODE 


0473 


C3 


RET 




0474 




INT.COMPLETE ENDP 




0474 




ROMCODE ENDS 
END 
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General Subroutines and Tables 
(B17TABLE) 



0000 



R0MC0DE SEGMENT BYTE PUBLIC 

ASSUME CSrROMCODE, DSrDATA 
IDENT B17TABLE,0,0 

MODULE-NAME : B17TABLE 
DATE LAST MODIFIED: 09/13/1985 

DESCRIPTIVE-NAME : MODULE CONTAINING ALL TABLES USED BY POST/ BIOS, 
GENERAL USE SUBROUTINES AND COMPATABLE LINK ADDRESSES 



COPYRIGHT 



7396-918 (C) COPYRIGHT IBM CORP. 1985 

REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 



CHANGE LEVEL: ECOOO 

MODULE SIZE: 8K BYTES 

EXTERNALLY REFERENCED ROUTINES: REFER TO EXTRN LIST 



SUBROUTINES: 
DDS 

ERR_BEEP 
BEEP 

DSP_BYTE 
XLAT_NIB 
DSP_HEX 
GET_RTC_REG 
PUT_RTC_REG 
Dll 
E_MSG 
ICON_PR 
STR_CON 
ENABLE_NMI 
DISABLE_NMI 
BAT_SAV_SETUP 

GET_VECTORG> 
RES_ERR_CHK 

TABLES: 
PRT_TAB 
VECTOR_TABLE 
BAUD_TABLE 
DSKT_BASE 
VIDEO_PARMS 
M1-M7 

CHAR_GEN_LO 
CHAR_GEN_HI 
K6-K30 
KBPAD.TBL 
KBFUN_TBL 
KBNMI_TBL 
DEF_SYS_PROF 



SET DATA SEGMENT TO BIOS DATA AREA 

BEEP THE SPEAKER FOR POST ERROR CONDITIONS 

BBEP THE SPEAKER 

TRANSLATE AND DISPLAY HEX BYTE TO SCREEN 

TRANSLATE HEX NIBBLE TO ASCII CHARACTER 

WRITE HEX BYTE TO SCREEN 

READ REAL TIME CLOCK REGISTER 

WRITE REAL TIME CLOCK REGISTER 

DEFAULT INTERRUPT HANDLER 

POST ERROR MESSAGE HANDLER 

ICON DISPLAY PROCESSING ROUTINE 

CONVERT HEX WORD TO ASCII STRING 

ENABLE KEYBOARD, RTC, AND SUSPEND NMIS 

DISABLE KEYBOARD, RTC, AND SUSPEND NMIS 

ENABLES/DISABLES THE RTC 1 SECOND BAT SAVING 

INTERRUPT 

GET ABSOLUTE VECTOR ADDRESS FOR HARDWARE LEVEL 

CHECK AND DISPLAY ANY RESUME ERRORS 



PRINTER PORT SEARCH TABLE 
INTERRUPT VECTOR INITIALIZATION TABLE 
COMMUNICATION BAUDE RATE SELECT TABLE 
DISKETTE DRIVE TIMING PARAMETERS 
VIDEO 10 PARAMETER TABLES 
VIDEO LINKAGE TABLE 
LOWER 128 DISPLAY CHARACTER SET 
UPPER 128 DISPLAY CHARACTER SET 
KEYBOARD TRANSLATE TABLES 
PREPROCESSOR KEYPAD XLATE TABLE 
PREPROCESSOR FUNCTION KEY XLATE TABLE 
PREPROCESSOR NORMAL KEY XLATE TABLE 
DEFAULT SYSTEM PROFILE 
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MESSAGES AND ICONS: 
MEM_MSG 
RONLMSG 
SYS_UNIT 
FEAT_ICON 
CLOCK 
BAT_ICON 
PAR_CHK 
Fl_ICON 



- 'KB OK' MEMORY MESSAGE 

- 'XXXXX ROM' MESSAGE 

- SYSTEM UNIT ICON 

- FEATURE DEVICE ICON 

- SYSTEM CLOCK NOT SET ICON 

- BATTERY LOW ICON 

- PARITY CHECK (I/O CHANNEL CHECK) ICON 

- PRESS Fl TO CONTINUE ICON 



CHANGE ACTIVITY: NONE 



********************************************************************* 



***************************************************************** 

* EXTERNAL REFERENCES * 

***************************************************************** 



PRIVATE BIOS AND POST ROUTINE NAMES 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



POSTMAIN:NEAR 

NMI_FLIH:NEAR 

SYS_BOOT:NEAR 

KYBD_IO:NEAR 

KYBD_INT9:NEAR 

DSKT_IO:NEAR 

DSKT_INTE:NEAR 

PRT_IO:NEAR 

VIDEO_IO_l:NEAR 

SYS_SERVICES:NEAR 

TOD_PROC:NEAR 

TMR0_INT8:NEAR 

COMMO_IO:NEAR 

PRT_SCRN:NEAR 

COM_POWER:NEAR 

MODEM_CONFIG:NEAR 



VIDEO I/O SUBROUTINES EXTERNALS 

EXTRN SET_MODE:NEAR 

EXTRN SET_CTYPE:NEAR 

EXTRN SET_CPOS:NEAR 

EXTRN READ_CURSOR:NEAR 

EXTRN READ_LPEN:NEAR 

EXTRN ACT_DISP_PAGE:NEAR 

EXTRN SCROLL_UP:NEAR 

EXTRN SCROLL_DOWN:NEAR 

EXTRN READ_AC_CURRENT:NEAR 

EXTRN WRITE_AC_CURRENT:NEAR 

EXTRN WRITE_C_CURRENT:NEAR 

EXTRN SET_COLOR:NEAR 

EXTRN WRITE_DOT:NEAR 

EXTRN READ_DOT:NEAR 

EXTRN WRITE_TTY:NEAR 

EXTRN VIDEO_STATE:NEAR 



***************************************************************** 

* PUBLICS * 

***************************************************************** 



PRINTER, VECTOR, COMMUNICATION AND DISKETTE TABLE PUBLICS 



PUBLIC 


PRT_TAB 


PUBLIC 


PRT_TAB_END 


PUBLIC 


VECTOR_TABLE 


PUBLIC 


BAUD_TABLE 


PUBLIC 


PARMS_TPI48 


PUBLIC 


PARMS_TPI135 


PUBLIC 


DSKT_BASE 


VIDEO PUBLICS 




PUBLIC 


VIDEO_PARMS 
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PUBLIC 


Ml 


PUBLIC 


MIL 


PUBLIC 


M4 


PUBLIC 


M5 


PUBLIC 


M6 


PUBLIC 


M7 


PUBLIC 


CHAR_6EN_L0 


PUBLIC 


CHAR_GEN_HI 


PUBLIC 


MONO_TBL 


PUBLIC 


CGA_TBL 


PUBLIC 


LCD_CGA_TBL 


PUBLIC 


LCD_MONO_TBL 


; KEYBOARD PUBLICS 




PUBLIC 


K6 


PUBLIC 


K6L 


PUBLIC 


K7 


PUBLIC 


K8 


PUBLIC 


K9 


PUBLIC 


KIO 


PUBLIC 


Kll 


PUBLIC 


K12 


PUBLIC 


K13 


PUBLIC 


K14 


PUBLIC 


K15 


PUBLIC 


K30 


PUBLIC 


KBPAD_TBL 


PUBLIC 


KBPADL 


PUBLIC 


KBFUN_TBL 


PUBLIC 


KBFUNL 


PUBLIC 


KBNMI_TBL 


; COMPATABILITY ENTRY POINTS 


PUBLIC 


RESET 


PUBLIC 


START 


PUBLIC 


RS232_IO 


PUBLIC 


DUMMY_RETURN 


PUBLIC 


NMI_INT 


PUBLIC 


BOOTSTRAP 


PUBLIC 


KEYBOARD_IO 


PUBLIC 


KB_INT 


PUBLIC 


DISKETTE_IO 


PUBLIC 


DSKT_INT 


PUBLIC 


PRINTER.IO 


PUBLIC 


VIDEO_IO 


PUBLIC 


MEMORY_SIZE_DET 


PUBLIC 


EQUIPMENT 


PUBLIC 


CASSETTE_IO 


PUBLIC 


PRINT_SCREEN 


PUBLIC 


TIME_OF_DAY 


PUBLIC 


TIMER_INT 


PUBLIC 


P_0_R 


; GENERAL PURPOSE 


SUBROUTINES 


PUBLIC 


DDS 


PUBLIC 


ERR_BEEP 


PUBLIC 


BEEP 


PUBLIC 


BEEP_SUB 


PUBLIC 


DSP.BYTE 


PUBLIC 


XLAT_NIB 


PUBLIC 


DSP.HEX 


PUBLIC 


GET_RTC_REG 


PUBLIC 


PUT_RTC_REG 


PUBLIC 


Dll 


PUBLIC 


E_MSG 


PUBLIC 


ICON_PR 


PUBLIC 


STR_CON 


PUBLIC 


KB_NOISE 


PUBLIC 


DISABLE_NMI 


PUBLIC 


ENABLE_NMI 


PUBLIC 


SYS_SETUP 
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PUBLIC 


SYS_CHK 


PUBLIC 


KYBD_RESET 


PUBLIC 


BAT_SAV_SETUP 


PUBLIC 


VECTOR_SETUP 


PUBLIC 


GET_VECTOR@ 


PUBLIC 


RES_ERR_CHK 


• POST ICONS AND MESSAGES 


; AND TABLES 




PUBLIC 


MEM_MSG 


PUBLIC 


ROM_MSG 


PUBLIC 


DEF_SYS_PROF 


PUBLIC 


PAR_CHK 


PUBLIC 


RTC_SIG_SAVE 


PUBLIC 


Fl_ICON 


PUBLIC 


SYS_DSKT_ICON 


PUBLIC 


DSKT_ICON 


PUBLIC 


BAD_DSKT_ICON 


PUBLIC 


SYS_DESCR_TABLE 



******************************************************* 

IBM COPYRIGHT STATEMENT 
******************************************************* 



OOOO 37 33 39 36 39 31 

38 20 43 4F 50 52 

2E 20 49 42 4D 20 

31 39 38 35 



'7396918 COPR. IBM 1985' ; COPYRIGHT NOTICE 



Software Reset Routine 



;ORG 



0E05BH 



005B 














ORG 


0005BH 




005B 














RESET 


LABEL FAR 




005B 














START: 






005B 


BO 


00 










MOV 


AL,0 


; SET LCD INDEX 


005D 


E6 


74 










OUT 


LCD_INDX,AL 




005F 


E4 


75 










IN 


AL,LCD_DATA 




0061 


24 


BF 










AND 


AL,NOT PANEL_ENABLE 


; TURN OFF PANEL POWER 


0063 


E6 


75 










OUT 


LCD_DATA,AL 




0065 


BO 


08 










MOV 


AL,HDWR_RESET 


; CAUSE HARDWARE RESET 


0067 


E6 


7F 










OUT 


PWR_STAT,AL 




0069 


EB 


FE 










JMP 


$ 


; WAIT FOR RESET 










; 


3 0ST 


ERROR ICONS AND MESSAGES 




006B 






MEM_MSG 


LABEL BYTE 




006B 


20 
20 


4B 


62 


20 


4F 


4B 




DB ' Kb OK ' 


; MEMORY OK MESSAG 


0072 


30 


20 


52 


4F 


4D 


04 


ROM_MSG 


DB '0 ROM' ,4 


; ROM CHECKSUM ERROR MSG 


0078 


00 


00 


14 


28 


3C 




DIS_POS 


DB 0,0,20,40,60 


; VALUES FOR E_MSG ROUTINE 



007D 






SYS. 


007D 


01 04 OB 08 




DB 


0081 


C9 01 09 CD BB 




DB 


0086 


04 02 BA 01 09 
BA 


DB 


DB 


008D 


C7 C4 DC C4 BF 
DA C4 DC C4 B6 


20 


DB 


0098 


C7 C4 C4 C4 CI 


C4 


DB 



************************************************** 

POWER ON SELF TEST ICONS 
************************************************** 



LABEL BYTE 
1,04,11,8 

0C9H,01,09,0CDH,0BBH 
4,2,0BAH,1,9,0DBH,0BAH 

OC7H,OC4H,0DCH,OC4H,OBFH,O2OH,0DAH,0C4H,0DCH,0C4H,OB6H 

0C7H,OC4H,0C4H,OC4H,0ClH,OC4H,0ClH,0C4H,0C4H,0C4H,0B6H 
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CI C4 C4 C4 B6 
00A3 04 02 BA 01 09 FE DB 4,2,0BAH,1,9,0FEH,0BAH 

BA 
OOAA C8 01 09 CD BC DB 0C8H,1,9,0CDH,0BCH 

LABEL BYTE 
05, OFBH, 15,04 
0B9H,0BBH,03 
020H,0BAH,01,05,020H,0C9H,01,06,0CDH,0BBH 

020H,0C8H,01,05,0CDH,0B9H,020H,049H, 
02FH,04FH,020H,020H,OBAH 

01,07,020H,0C8H,01,06,0CDH,0BCH 

LABEL BYTE 
02,05,10,07 
0C9H,01,8,0CDH,0BBH 
0BAH,05CH,020H,020H,031H,032H,020H,020H,02FH,0BAH 

0BAH,01,8,020H,0BAH 
OBAH 5 039H,020H,01,04,02,087H,03FH,020H,033H,OBAH 

0BAH,01,8,020H,0BAH 
0BAH,02FH,020H,020H,020H,036H,020H,020H,05CH,0BAH 

0C8H,01,8,0CDH,0BCH 

010C BAT_ICON LABEL BYTE 

010C 02 07 06 07 DB 02,07,06,07 

0110 DA CA C4 C4 CA BF DB 0DAH,0CAH,0C4H,0C4H,0CAH,0BFH 

0116 B3 2B 20 20 2D B3 DB OB3H,02BH,020H,020H,02DH,OB3H 

011C 04 04 B3 01 04 20 DB 04,04,0B3H,01,04,020H,0B3H 

B3 

0123 CO 01 04 C4 D9 DB 0C0H,01,O4,0C4H,0D9H 

0128 F1_IC0N LABEL BYTE 

0128 02 OF 33 04 DB 02,15,51,4 

012C 20 20 46 31 20 20 DB 020H,020H,46H,31H,20H,20H,20H,46H, 

32H,20H,20H,20H,46H,33H,20H 

20 46 32 20 20 20 

46 33 20 
013B 20 20 46 34 20 20 DB 020H,020H,46H,34H,2QH,20H,20H,46H, 

35H,20H,20H,20H,46H,36H,20H 

20 46 35 20 20 20 

46 36 20 
014A 20 20 46 37 20 20 DB 020H,020H,46H,37H,20H,20H,20H,46H, 



OOAF 














FEAT.ICON 


00 A F 


05 


FB 


OF 


04 






DB 1 


00B3 


B9 


BB 


03 








DB 1 


00B6 


20 


BA 


01 


05 


20 


C9 


DB 1 




01 


06 


CD 


BB 








OOCO 


20 


C8 


01 


05 


CD 


B9 


DB 1 




20 


49 


2F 


4F 


20 


20 






BA 














OOCD 


01 
CD 


07 
BC 


20 


C8 


01 


06 


DB 1 


00D5 














CLOCK 


00D5 


02 


05 


OA 


07 






DB 1 


00D9 


C9 


01 


08 


CD 


BB 




DB ( 


OODE 


BA 


5C 


20 


20 


31 


32 


DB 1 




20 


20 


2F 


BA 








00 E8 


BA 


01 


08 


20 


BA 




DB ( 


OOED 


BA 


39 


20 


01 


04 


02 


DB I 




87 


3F 


20 


33 


BA 






00 F8 


BA 


01 


08 


20 


BA 




DB 1 


OOFD 


BA 


2F 


20 


20 


20 


36 


DB 1 




20 


20 


5C 


BA 








0107 


C8 


01 


08 


CD 


BC 




DB 1 



0159 


20 46 38 20 20 20 

46 39 20 

20 46 31 30 20 20 


DB 


015F 


20 02 87 19 20 20 


DB 


0171 


H 
02 87 19 DA 05 08 
05 C4 C4 C4 C4 C2 
01 04 C4 BF 


DB 



38H,20H,20H,20H,46H,39H,20H 



020H,46H,31H,30H,20H,20H 

020H,2,87H,19H,20H,20H,2,87H,19H, 

0DAH,5,8,5,0C4H,0C4H,0C4H,0C4H,0C2 



1,4,0C4H,0BFH 

0175 DA 01 04 C4 B4 05 DB 0DAH,1,4,0C4H,0B4H,5,9,5,20H,20H,20H,20H,0B3H 

09 05 20 20 20 20 
B3 

0182 CO 05 09 05 C4 C4 DB 0C0H,5,9,5,0C4H,0C4H,0C4H,0C4H,0C1H,1,4,0C4H,0D9H 

C4 C4 CI 01 04 C4 

D9 

018F PAR_CHK LABEL BYTE 

018F 02 07 OB 07 DB 02,07,11,07 ; I/O CHANNEL CHECK ICON 

0193 01 09 20 FB FB DB 01, 09, 020H, OFBH, OFBH 

0198 01 08 20 FB FB 03 DB 01, 08, 020H, OFBH, OFBH, 03 

019E 01 07 20 FB FB 03 DB 01, 07, 020H, OFBH, OFBH, 03 
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01A4 
01AA 



01B2 
01B9 



OIBF 
OIBF 
01C3 
01C8 

01D1 

01D8 

OlDF 
01E5 
OlEB 
01F1 

01 F8 

01FF 

0208 

020F 



0214 
0214 
0218 
021B 
021D 

0224 



0229 
0229 
022D 

0234 

023B 

0242 



0249 
0249 



0251 



01 06.20 FB FB 03 DB 

FB FB 20 20 20 FB DB 

FB 03 

20 FB FB 20 FB FB DB 

03 

20 20 20 FB FB 03 DB 



01,06,020H,0FBH,0FBH,03 
0FBH,0FBH,020H,020H,020H,0FBH,0FBH,03 



020H,0FBH,0FBH,020H,0FBH,0FBH,03 
020H,020H,020H,0FBH,0FBH,03 
SYSTEM UNIT WITH INSERT DISKETTE ICON (USED DURING BOOT) 



SYS_DSKT_ICON LABEL BYTE 



00 00 12 11 DB 

C9 01 10 CD BB DB 

04 04 BA 20 01 OE DB 

DB 20 BA 

C8 Dl 01 05 CD B8 DB 

20 

20 D5 01 05 CD Dl DB 

BC 

20 B3 DC DC FO DC DB 

DC C3 C4 C4 B4 DC DB 

DC FO DC DC B3 20 DB 

20 C3 01 05 C4 CI DB 

C4 

C4 CI 01 05 C4 B4 DB 

20 

04 03 20 B3 01 OE DB 

FE B3 20 

20 D4 01 OE CD BE DB 

20 

04 05 01 12 20 DB 



0,0,18,17 

0C9H,01,16,0CDH,0BBH 

04,04,0BAH,20H,01,14,0DBH,20H,0BAH 

0C8H,0D1H,01,05,0CDH,0B8H,20H 

20H,0D5H,01,05,0CDH,0D1H,0BCH 

20H,0B3H,0DCH,0DCH,0F0H,0DCH 
0DCH,0C3H,0C4H,0C4H,0B4H,0DCH 
0DCH,0F0H,0DCH,0DCH,0B3H,20H 
20H,0C3H,01,05,0C4H,0C1H,0C4H 



0C4H,0C1H,01,05,0C4H,0B4H,20H 

04,03,20H,0B3H,01,14,0FEH,0B3H,20H 

20H,0D4H,01,14,0CDH,0BEH,20H 

04,05,01, 18, 020H 

DISKETTE ICON (USED DURING BOOT) 

DSKT_ICON LABEL BYTE 

00 00 05 04 DB 0,0,5,4 

DA C4 DC DB 0DAH,0C4H,0DCH 

C4 BF DB 0C4H,0BFH 

04 02 B3 20 20 20 DB 04H,02H,0B3H,20H,20H,020H,0B3H 
B3 

CO 01 03 C4 D9 DB 0C0H,01H,03H,0C4H,0D9H 

BAD DISKETTE ICON (USED DURING BOOT) 



BAD_DSKT_ICON LABEL BYTE 



00 00 07 04 DB 

DA BF 20 DA C4 C4 DB 

BF 

B3 CO BF CO BF 20 DB 

B3 

B3 20 CO BF CO BF DB 

B3 

CO C4 C4 D9 20 CO DB 

D9 



0,0,7,4 
218,191,32,218,196,196,191 

179,192,191,192,191,32,179 

179,32,192,191,192,191,179 

192,196,196,217,32,192,217 



TABLE OF ICON ADDRESSES USED BY E_MSG ROUTINE 

ICON_ADR LABEL WORD 
0000 007D R OOAF R DW 00, OFFSET SYS_UNIT, OFFSET FEAT_ICON, OFFSET CLOCK 
00D5 R 

010C R 018F R DW OFFSET BAT_ICON, OFFSET PAR_CHK, OFFSET F_ICON 
0128 R 
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System Descriptor Table 







SYSTEM 


DESCRIPTOR TABLE 






ACCESSED VIA 


INT 15H FUNCTION OCOH 


0257 




SYS_DESCR_TABLE LABEL BYTE 


0257 


0008 




DW 


8 ; 


0259 


F9 




DB 


0F9H ; 


025A 


00 




DB 


; 


025B 


00 




DB 


; 


025C 


38 




DB 


00111000B ; 


025D 


00 




DB 


; 


025E 


00 




DB 


; 


025F 


00 




DB 


; 


0260 


00 




DB 


; 



DESCRIPTOR TABLE LENGTH 
SYSTEM MODEL BYTE 
SECONDARY MODEL BYTE 
BIOS REVISION LEVEL 
FEATURE INFORMATION BYTE 1 
FEATURE INFORMATION BYTE 2 
FEATURE INFORMATION BYTE 3 
FEATURE INFORMATION BYTE 4 
FEATURE INFORMATION BYTE 5 



Default System Profile 



DEFAULT SYSTEM PROFILE 
THIS IS THE SET OF PARAMETERS DEFINING THE 
DEFAULT SYSTEM PROFILE WHICH IS LOADED AFTER 
STANDBY POWER LOST CONDITIONS 



0261 
0261 


DEF. 
EO 00 DB 


.SYS. 


.PROF LABEL BYTE 
OEOH,0 ; 


0263 


0000 0000 DW 




0,0 ; 


0267 


OE 00 DB 




OEH,0 I 




; REAL TIME CLOCK VALID SIGNATURE 


0269 
0269 


RTC 
52 54 43 47 DB~ 


.SIGL 


.SAVE LABEL BYTE 
"RTCG" ; 



PROFILE BYTE 1 AND 2 
WARMSTART, LOW BAT WNG ENAB 
INIT VIDEO MODE = CGA 80X25 
LCD HIGH INT = NO OPERATION 
RS232 AND MDM NOT AV ON BATT 
KYBD INACT TIMEOUT VALUES 
LCD BLANK = NO TIMEOUT 
SYSTEM OFF = NO TIMEOUT 
DFLT MDM SET 1200BPS, E-PRTY 
NO AUTO-ANSWER 



REAL TIME CLOCK SIGNATURE 
WRTN & CKD BY POST (P01MAIN) 



Printer Configuration Table (PRT-TAB) 



PRINTER PORT SEARCH TABLE USED DURING POST 



026D 




PRT_TAB 


026D 


0078 


DW 078H 


026F 


0378 


DW 378H 


0271 


03 BC 


DW 3BCH 


0273 


0278 


DW 278H 


0275 




PRT_TAB_END 



LABEL WORD 



LABEL WORD 



COMPACT PRINTER PORT 
PRIMARY PRINTER PORT 
MONO ADAPTER PRINTER PORT 
ALTERNATE PRINTER PORT 
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ASCII Conversion (STR.CON) 



0275 



*************************************************^ 



ROUTINE-NAME : STR_C0N 



FUNCTION: THIS ROUTINE CONVERTS HEX NUMBERS TO ASCII AND STORES 
THEM AT ADDRESS ES:DI. 



ENTRY CONDITIONS: 
PURPOSE OF ENTRY: TO POST ERROR MESSAGES IN MEMORY 
INPUT CONDITIONS: DX = HEX NUMBER TO BE CONVERTED 

ES:DI = PLACE IN MEMORY TO PUT ASCII STRNG 

RESTRICTIONS: NONE 

EXIT CONDITIONS: 
NORMAL EXIT CONDITIONS: 



ERROR EXIT CONDITIONS: 

REGISTERS MODIFIED: CX,DX,ES,DI 
INTERNALLY REFERENCED ROUTINES: NONE 
EXTERNALLY REFERENCED ROUTINES: NONE 



STR_CON 



PROC 



NEAR 



0275 


51 


PUSH 


CX 






0276 


Bl OC 


MOV 


CL,12 




; CONVERT 2 BYTES 


0278 


26: C6 05 20 


MOV 


BYTE PTR ES:[DI- 


020H ; INSERT ASCII BLANK 


027C 


47 


INC 


DI 




; INC POINTER 


027D 


52 


SC10: 


PUSH DX 




; SAVE COUNT 


027E 


D3 EA 


SHR 


DX,CL 




; MOVE HIGH NIBBLE TO LOW NIB 


0280 


80 E2 OF 


AND 


DL,OFH 




; MASK OUT NEW HIGH NIBBLE 


0283 


80 FA 09 


CMP 


DL,09 




; ALPHA OR NUMERIC 


0286 


7E 03 


JLE 


SC24 




; NO ADJUST FOR ALPHA 


0288 


80 C2 07 


ADD 


DL,07 




; ADJUST FOR ALPHA 


028B 


80 C2 30 


SC24: 


ADD DL 


30H 


; CONVERT TO ASCII 


028E 


26: 88 15 


MOV 


ES:[DI] 


DL 


; SEND ERROR TO SCREEN 


0291 


47 


INC 


DI 




; POINT TO NEXT MEMOERY LOCAT 


0292 


5A 


POP 


DX 




; RESTORE AX 


0293 


80 E9 04 


SUB 


CL,4 




; SUB 4 FROM SHIFT COUNT 


0296 


80 F9 00 


CMP 


CL,0 




; SEE IF MINUS 


0299 


7D E2 


JGE 


SC10 




; LOOP 


029B 


59 


POP 


CX 






029C 


C3 


SC_RET: 


RET 




; RETURN 


029D 




STR_CON 


ENDP 





NMI Handler Entry Point Address 
(NMI-INT) 



. -A-************************************ 

; NMI HANDLER ENTRY POINT ADDRESS 
. ************************************* 



;ORG 


0E2C3H 




02C3 


ORG 


002C3H 


= 02C3 


NMI_INT 


EQU 


02C3 E9 0000 E 


JMP 


NMI.FLIH 
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Character Generator Graphics 128-255 
(CHAR_GEN_HI) 



****************************************************************** 

CHARACTER GENERATOR GRAPHICS FOR 320X200 AND 640X200 
GRAPHICS FOR CHARACTERS 80H THROUGH FFH AND FOR DEFAULT 
LCD CHARACTER GENERATOR 
****************************************************************** 



02C6 














CHAR_( 


02C6 


ID 
OE 


33 
1C 


61 


60 


60 


31 


DB 


02CE 


6C 
3B 


00 
00 


66 


66 


66 


66 


DB 


02D6 


OE 
3E 


18 
00 


3C 


66 


7E 


60 


DB 


02 DE 


18 
7B 


3C 
00 


3C 


66 


IE 


66 


DB 


02E6 


36 

7B 


00 
00 


3C 


66 


IE 


66 


DB 


02EE 


30 
7B 


18 
00 


3C 


66 


IE 


66 


DB 


02F6 


18 

7B 


18 
00 


3C 


66 


IE 


66 


DB 


02FE 


00 

1C 


00 
38 


3E 


66 


60 


36 


DB 


0306 


18 
3E 


3C 
00 


3C 


66 


7E 


60 


DB 


030E 


36 

3E 


00 
00 


3C 


66 


7E 


60 


DB 


0316 


30 
3E 


18 
00 


3C 


66 


7E 


60 


DB 


031E 


6C 
3C 


00 
00 


38 


18 


18 


18 


DB 


0326 


10 
3C 


38 
00 


08 


38 


18 


18 


DB 


032E 


30 
3C 


18 
00 


08 


38 


18 


18 


DB 


0336 


36 
63 


08 
00 


1C 


16 


36 


3F 


DB 


033E 


1C 
63 


14 
00 


1C 


IE 


36 


3F 


DB 


0346 


07 
7F 


OC 
00 


7F 


31 


3C 


31 


DB 


034E 


00 
77 


00 
00 


76 


IB 


3F 


6C 


DB 


0356 


3F 
6F 


3D 
00 


2C 


3E 


6C 


6D 


DB 


035E 


18 
3C 


3C 
00 


3C 


66 


66 


66 


DB 


0366 


66 
3C 


00 
00 


3C 


66 


66 


66 


DB 


036E 


70 
3C 


18 
00 


3C 


66 


66 


66 


DB 


0376 


18 
3B 


3C 
00 


42 


66 


66 


66 


DB 


037E 


70 
3B 


18 
00 


66 


66 


66 


66 


DB 


0386 


36 
6C 


00 
38 


77 


33 


1A 


OC 


DB 


038E 


63 
1C" 


1C 
00 


36 


63 


63 


36 


DB 


0396 


36 


41 


63 


63 


63 


63 


DB 



I LABEL BYTE 
01DH,033H,061H,060H,060H,031H,00EH,01CH 

06CH,000H,066H,066H,066H,066H,03BH,000H 

00EH,018H,03CH,066H,07EH,060H,03EH,000H 

018H,03CH 5 03CH,066H,01EH,066H,07BH,000H 

036H,00OH,03CH,O66H 5 01EH,O66H,07BH,000H 

030H 5 018H,03CH,066H,01EH,066H,07BH,000H 

018H,018H,03CH,066H,01EH,066H,07BH 5 000H 

000H,000H,03EH,066H,060H,036H,01CH,038H 

018H,03CH,03CH,066H,07EH,060H 5 03EH,000H 

036H,000H 5 03CH,066H S 07EH,060H,03EH,000H 

030H,018H,03CH,066H,07EH,060H 5 03EH,000H 

O6CH,000H,038H,018H,018H,018H,03CH,000H 

010H,038H 5 008H,038H,018H,018H,03CH,000H 

030H,018H,008H 5 038H,018H,018H,03CH,000H 

036H,008H,01CH,016H,036H,03FH,063H,000H 

01CH,014H,01CH,01EH,036H,03FH,063H,000H 

007H,00CH,07FH 5 031H,03CH,031H,07FH,000H 

000H,000H,076H,01BH,03FH,06CH 5 077H,000H 

03FH,03DH,02CH,03EH,06CH,06DH,06FH,000H 

018H,03CH,03CH,066H,066H,066H,03CH,OOOH 

066H,000H,03CH,066H,066H,066H 5 03CH,000H 

070H,018H,03CH,066H,066H,066H,03CH,000H 

018H,03CH,042H,066H,066H,066H,03BH 5 000H 

070H,018H,066H,066H,066H,066H,03BH,OOOH 

O36H,OOOH,077H,O33H,01AH,O0CH,O6CH,O38H 

063H,01CH,036H,063H,063H,036H,01CH 5 000H 

036H,041H,063H,063H,063H,063H,03EH,000H 



D_80 
D_81 
D_82 
D_83 
D_84 
D_85 
D_86 
D_87 
D_88 
D_89 
D_8A 
D_8B 
D_8C 
D_8D 
D_8E 
D_8F 
D_90 
D_91 
D_92 
D_93 
D_94 
D_95 
D_96 
D_97 
D_98 
D_99 
D_9A 
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3E 


00 












039E 


06 
3C 


04 
30 


3C 


6E 


68 


6A 


DB 


03A6 


IE 
76 


33 
00 


33 


7C 


39 


5B 


DB 


03AE 


66 
18 


66 
00 


3C 


7E 


18 


7E 


DB 


03B6 


78 
66 


6C 
03 


6C 


7A 


66 


6F 


DB 


03BE 


0E 
58 


IB 
70 


18 


3E 


18 


18 


DB 


03C6 


OE 
7B 


18 
00 


3C 


66 


IE 


66 


DB 


03CE 


1C 
3C 


30 
00 


18 


38 


18 


18 


DB 


03D6 


OE 
3C 


18 
00 


3C 


66 


66 


66 


DB 


03DE 


OE 
3B 


18 
00 


66 


66 


66 


66 


DB 


03E6 


1A 
73 


2C 
00 


76 


3B 


33 


33 


DB 


03EE 


1A 
63 


2C 
00 


73 


7B 


6F 


67 


DB 


03F6 


IE 
00 


36 
00 


36 


IF 


00 


3F 


DB 


03FE 


1C 
00 


36 
00 


36 


1C 


00 


3E 


DB 


0406 


18 
3C 


00 
00 


18 


30 


64 


66 


DB 


040E 


00 
00 


00 
00 


00 


7E 


60 


60 


DB 


0416 


00 
00 


00 
00 


00 


7E 


06 


06 


DB 


041E 


60 
4C 


66 
OF 


6C 


7E 


3B 


66 


DB 


0426 


60 

4F 


66 
03 


6C 


7B 


37 


6B 


DB 


042E 


30 
30 


00 
00 


30 


30 


30 


30 


DB 


0436 


00 
IB 


IB 
00 


36 


6C 


6C 


36 


DB 


043E 


00 
6C 


6C 
00 


36 


IB 


IB 


36 


DB 


0446 


11 
11 


44 
44 


11 


44 


11 


44 


DB 


044E 


55 
55 


AA 
AA 


55 


AA 


55 


AA 


DB 


0456 


EE 
EE 


BB 
BB 


EE 


BB 


EE 


BB 


DB 


045E 


18 
18 


18 
18 


18 


18 


18 


18 


DB 


0466 


18 
18 


18 
18 


18 


F8 


F8 


18 


DB 


046E 


18 
18 


18 
18 


F8 


F8 


18 


F8 


DB 


0476 


34 
34 


34 
34 


34 


F4 


F4 


34 


DB 


047E 


00 
34 


00 
34 


00 


F8 


FC 


34 


DB 


0486 


00 
18 


00 
18 


FO 


F8 


18 


F8 


DB 


048E 


34 
34 


34 
34 


F4 


F4 


04 


F4 


DB 


0496 


34 
34 


34 
34 


34 


34 


34 


34 


DB 


049E 


00 
34 


00 
34 


F8 


FC 


04 


F4 


DB 


04A6 


34 
00 


34 
00 


F4 


F4 


04 


FC 


DB 


04AE 


34 
00 


34 
00 


34 


FC 


FC 


00 


DB 


04B6 


18 
00 


18 
00 


F8 


F8 


18 


F8 


DB 


04BE 


00 


00 


00 


F8 


F8 


18 


DB 



006H,004H,03CH,06EH,068H,06AH,03CH,030H ; D_9B 

01EH,033H,033H,07CH,039H,05BH,076H,000H ; D_9C 

066H,066H,03CH,07EH,018H,07EH,018H,000H ; D_9D 

078H,06CH,06CH,07AH,066H,06FH,066H,003H ; D_9E 

OOEH,01BH,018H,03EH,018H,018H,058H,070H ; D_9F 

OOEH,018H,03CH,066H,01EH,066H,07BH,OOOH ; D_AO 

01CH,030H,018H,038H,018H,018H,03CH,000H ; D_A1 

00EH,018H,03CH,066H,066H,066H,03CH,000H ; D_A2 

OOEH,018H,066H,066H,066H,066H,03BH,OOOH ; D_A3 

01AH,02CH,076H,03BH,033H,033H,073H,000H ; D_A4 

01AH 5 02CH,073H,07BH,06FH,067H,063H,000H ; D_A5 

01EH,036H,036H,OlFH,0O0H,03FH 5 000H,OO0H ; D_A6 

01CH,036H,036H,01CH,000H 5 03EH,000H,000H ; D_A7 

018H,OOOH,018H,030H 5 064H,066H,03CH,OOOH ; D_A8 

000H,000H,000H,07EH,060H,060H,000H,000H ; D_A9 

00OH,0OOH,00OH,O7EH,OO6H,OO6H,000H,0O0H ; D_AA 

060H,066H,06CH,07EH,03BH,066H,04CH,00FH ; D_AB 

060H,066H,06CH,07BH,037H,06BH,04FH,003H ; D_AC 

03OH,000H,03OH,O30H,03OH,030H,030H,000H ; D_AD 

000H,01BH,036H,06CH,06CH,036H,01BH,000H ; D_AE 

OOOH,06CH,036H,01BH,01BH,036H,06CH,OOOH ; D_AF 

011H,044H,011H,044H,011H,044H,011H,044H ; D_BO 

055H,0AAH,055H,0AAH,055H,0AAH 5 055H,0AAH ; D_B1 

0EEH,OBBH,0EEH,OBBH,0EEH,OBBH,0EEH,0BBH ; D_B2 

018H,018H 5 018H,018H,018H,018H,018H,018H ; D_B3 

018H,018H,018H,0F8H 5 0F8H,018H,018H,018H ; D_B4 

018H,018H,0F8H,0F8H 5 018H,0F8H,018H,018H ; D_B5 

034H,034H,034H 5 0F4H,0F4H,034H,034H,034H ; D_B6 

000H,0O0H,00OH,0F8H,0FCH,O34H,034H,034H ; D_B7 

000H,000H,0F0H,0F8H,018H,0F8H,018H,018H ; D_B8 

034H,034H,0F4H,0F4H,004H,0F4H,034H,034H ; D_B9 

034H,034H,034H,034H,034H,034H,034H,034H ; D_BA 

000H,000H,0F8H,0FCH,004H,0F4H,034H,034H ; D_BB 

034H,034H,0F4H,0F4H,004H,0FCH,000H,000H ; D_BC 

034H,034H,034H,0FCH,0FCH,000H,000H,000H ; D_BD 

018H,018H,0F8H,0F8H,018H,0F8H,000H,000H ; D_BE 

000H 5 000H,OOOH,OF8H,0F8H,O18H,018H,018H ; 0_BF 
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18 


18 






















04C6 


18 
00 


18 
00 


18 


IF 


IF 


00 


DB 


018H 


018H 


018H 


01 FH 


01FH 


04CE 


18 
00 


18 
00 


18 


FF 


FF 


00 


DB 


018H 


018H 


018H 


OFFH 


OFFH 


04D6 


00 
18 


00 
18 


00 


FF 


FF 


18 


DB 


OOOH 


OOOH 


OOOH 


OFFH 


OFFH 


04DE 


18 
18 


18 
18 


18 


IF 


IF 


18 


DB 


018H 


018H 


018H 


01FH 


Q1FH 


04E6 


00 
00 


00 
00 


00 


FF 


FF 


00 


DB 


OOOH 


OOOH 


OOOH 


OFFH 


OFFH 


04EE 


18 
18 


18 
18 


18 


FF 


FF 


18 


DB 


018H 


018H 


018H 


OFFH 


OFFH 


04F6 


18 
18 


18 
18 


IF 


IF 


18 


IF 


DB 


018H 


018H 


01FH 


01FH 


018H 


04FE 


34 
34 


34 
34 


34 


37 


37 


34 


DB 


034H 


034H 


034H 


037H 


037H 


0506 


34 
00 


34 
00 


37 


37 


30 


IF 


DB 


034H 


034H 


037H 


037H 


030H 


050E 


00 

34 


00 
34 


3F 


3F 


30 


37 


DB 


OOOH 


,000H 


,03FH 


03FH 


030H 


0516 


34 
00 


34 
00 


F7 


F7 


00 


FF 


DB 


034H 


,034H 


,0F7H 


0F7H 


OOOH 


051E 


00 
34 


00 
34 


FF 


FF 


00 


F7 


DB 


OOOH 


OOOH 


,OFFH 


OFFH 


OOOH 


0526 


34 
34 


34 
34 


37 


37 


30 


37 


DB 


034H 


034H 


,037H 


037H 


030H 


052E 


00 
00 


00 
00 


FF 


FF 


00 


FF 


DB 


OOOH 


OOOH 


,OFFH 


OFFH 


OOOH 


0536 


34 
34 


34 
34 


F7 


F7 


00 


F7 


DB 


034H 


034H 


,0F7H 


0F7H 


OOOH 


053E 


18 
00 


18 
00 


FF 


FF 


00 


FF 


DB 


018H 


018H 


OFFH 


OFFH 


OOOH 


0546 


34 
00 


34 
00 


34 


FF 


FF 


00 


DB 


034H 


034H 


034H 


OFFH 


OFFH 


054E 


00 
18 


00 
18 


FF 


FF 


00 


FF 


DB 


OOOH 


OOOH 


OFFH 


OFFH 


OOOH 


0556 


00 
34 


00 
34 


00 


FF 


FF 


34 


DB 


OOOH 


OOOH 


OOOH 


OFFH 


OFFH 


055E 


34 
00 


34 
00 


34 


3F 


IF 


00 


DB 


034H 


034H 


034H 


03FH 


01FH 


0566 


18 
00 


18 
00 


IF 


IF 


18 


OF 


DB 


018H 


018H 


01FH 


01FH 


018H 


056E 


00 
18 


00 
18 


IF 


IF 


18 


IF 


DB 


OOOH 


OOOH 


,01FH 


01FH 


018H 


0576 


00 
34 


00 
34 


00 


3F 


3F 


34 


DB 


OOOH 


OOOH 


,000H 


,03FH 


03FH 


057E 


34 
34 


34 
34 


34 


FF 


FF 


34 


DB 


034H 


,034H 


,034H 


OFFH 


OFFH 


0586 


18 
18 


18 
18 


FF 


FF 


18 


FF 


DB 


018H 


018H 


OFFH 


OFFH 


018H 


058E 


18 
00 


18 
00 


18 


F8 


F8 


00 


DB 


018H 


,018H 


,018H 


0F8H 


0F8H 


0596 


00 
18 


00 
18 


00 


IF 


IF 


18 


DB 


OOOH 


OOOH 


OOOH 


01FH 


01FH 


059E 


FF 
FF 


FF 
FF 


FF 


FF 


FF 


FF 


DB 


OFFH 


,OFFH 


,OFFH 


OFFH 


OFFH 


05A6 


00 

FF 


00 
FF 


00 


00 


FF 


FF 


DB 


OOOH 


OOOH 


OOOH 


OOOH 


OFFH 


05AE 


F0 
FO 


FO 
FO 


FO 


FO 


FO 


FO 


DB 


OFOH 


OFOH 


OFOH 


OFOH 


OFOH 


05B6 


OF 
OF 


OF 
OF 


OF 


OF 


OF 


OF 


DB 


OOFH 


OOFH 


OOFH 


OOFH 


OOFH 


05BE 


FF 
00 


FF 
00 


FF 


FF 


00 


00 


DB 


OFFH 


OFFH 


OFFH 


OFFH 


OOOH 


05C6 


00 
3B 


00 
00 


3D 


6E 


66 


6E 


DB 


OOOH 


OOOH 


03DH 


06EH 


066H 


05CE 


OE 
6E 


IB 
60 


33 


3E 


33 


73 


DB 


OOEH 


01BH 


033H 


03EH 


033H 


05D6 


7F 
78 


33 
00 


31 


30 


30 


30 


DB 


07FH 


033H 


,031H 


030H 


030H 


05DE 


00 
CC 


7E 
00 


FC 


A8 


28 


6C 


DB 


OOOH 


,07EH 


,OFCH 


,0A8H 


028H 


05E6 


FE 


66 


30 


18 


30 


66 


DB 


OFEH 


,066H 


,030H 


,018H 


030H 



, OOOH, OOOH, OOOH 
, OOOH, OOOH, OOOH 
,018H,018H,018H 
,018H,018H,018H 
,000H, OOOH, OOOH 
,018H,018H,018H 
,01FH,018H,018H 
,034H,034H,034H 
,01FH, OOOH, OOOH 
,037H,034H,034H 
,OFFH, OOOH, OOOH 
,0F7H,034H,034H 
,037H,034H,034H 
,OFFH, OOOH, OOOH 
,0F7H,034H,034H 
,OFFH, OOOH, OOOH 
, OOOH, OOOH, OOOH 
,0FFH,018H,018H 
,034H,034H,034H 
, OOOH, OOOH, OOOH 
, OOFH, OOOH, OOOH 
,01FH,018H,018H 
,034H,034H,034H 
,034H,034H,034H 
,OFFH,018H,018H 
, OOOH, OOOH, OOOH 
,018H,018H,018H 
,OFFH, OFFH, OFFH 
,OFFH, OFFH, OFFH 
,OFOH, OFOH, OFOH 
, OOFH, OOFH, OOFH 
, OOOH, OOOH, OOOH 
,06EH,03BH,000H 
,073H,06EH,060H 
,030H,078H,000H 
,06CH,0CCH,000H 
,066H, OFEH, OOOH 



D_CO 
D_C1 
D_C2 
D_C3 
D_C4 
D_C5 
D_C6 
D_C7 
D_C8 
D_C9 
D_CA 
D_CB 
D_CC 
D_CD 
D_CE 
D_CF 
D_DO 
D_D1 
D_D2 
D_D3 
D_D4 
D_D5 
D_D6 
D_D7 
D_D8 
D_D9 
D_DA 
D_DB 
D_DC 
D_DD 
D_DE 
D_DF 
D_EO 
D_E1 
D_E2 
D_E3 
D_E4 
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FE 


00 












05EE 


00 
38 


00 
00 


3F 


6C 


6C 


6C 


DB 


05F6 


00 
6D 


00 
60 


33 


33 


33 


37 


DB 


05FE 


00 
OC 


3F 
00 


7E 


50 


18 


1C 


DB 


0606 


1C 
1C 


08 
00 


3E 


6B 


3E 


08 


DB 


060E 


1C 
1C 


36 
00 


63 


7F 


63 


36 


DB 


0616 


1C 
77 


36 
00 


63 


63 


36 


55 


DB 


061E 


1C 
3C 


30 
00 


18 


2C 


66 


66 


DB 


0626 


00 
36 


36 
00 


7F 


4D 


59 


7F 


DB 


062E 


01 
3E 


03 
40 


3E 


67 


6B 


73 


DB 


0636 


00 

IE 


00 
00 


IE 


30 


3E 


30 


DB 


063E 


3C 
66 


66 
00 


66 


66 


66 


66 


DB 


0646 


00 
00 


7E 
00 


00 


7E 


00 


7E 


DB 


064E 


18 
7E 


18 
00 


7E 


18 


18 


00 


DB 


0656 


60 
7E 


38 
00 


OE 


38 


60 


00 


DB 


065E 


06 

7E 


1C 
00 


70 


1C 


06 


00 


DB 


0666 


OE 
18 


IB 
18 


1A 


18 


18 


18 


DB 


066E 


18 
70 


18 
00 


18 


18 


58 


D8 


DB 


0676 


18 
18 


18 
00 


00 


7E 


00 


18 


DB 


067E 


00 
00 


3B 
00 


6E 


00 


3B 


6E 


DB 


0686 


1C 
00 


36 
00 


36 


1C 


00 


00 


DB 


068E 


00 
00 


00 
00 


08 


1C 


1C 


08 


DB 


0696 


00 
00 


00 
00 


00 


18 


18 


00 


DB 


069E 


03 
18 


02 
10 


06 


24 


6C 


38 


DB 


06A6 


76 
00 


3B 
00 


33 


33 


33 


00 


DB 


06AE 


3C 
00 


66 
00 


OC 


38 


7E 


00 


DB 


06B6 


00 
00 


00 
00 


3C 


3C 


3C 


3C 


DB 


06BE 


00 
00 


00 
00 


00 


00 


00 


00 


DB 



000H,000H,03FH,06CH,06CH,06CH,038H,000H ; D_E5 

000H,000H,033H,033H,033H,037H 5 06DH,060H ; D_E6 

OOOH,03FH,07EH,050H,018H,01CH,OOCH,OOOH ; D_E7 

01CH,008H,03EH,06BH,03EH,008H,01CH,000H ; D_E8 

01CH,036H,063H,07FH,063H,036H,01CH,000H ; D_E9 

01CH,036H,063H,063H,036H,055H,077H,000H ; D_EA 

01CH,030H,018H,02CH,066H,066H,03CH 5 000H ; D_EB 

0OOH,O36H,07FH,04DH,059H,07FH,036H,OO0H ; D_EC 

001H,003H,03EH,067H,06BH,073H,03EH,040H ; D_ED 

000H,000H,01EH,030H,03EH,030H,01EH,000H ; D_EE 

03CH,066H,066H,066H,066H,066H,066H,000H ; D_EF 

O0OH,07EH,0OOH,07EH,0OOH,07EH,O0OH,00OH ; D_F0 

O18H,018H,07EH,018H,018H,00OH,07EH,O00H ; D_F1 

06OH,O38H,0OEH,038H,06OH,00OH,O7EH,OO0H ; D_F2 

0O6H,01CH,O7OH,01CH,006H,00OH,07EH,0O0H ; D_F3 

00EH,01BH,01AH,018H,018H,018H,018H,018H ; D_F4 

018H,018H,018H,018H,058H,0D8H 5 070H,000H ; D_F5 

018H,018H,000H,07EH,000H 5 018H,018H,000H ; D_F6 

0O0H,03BH,O6EH,OOOH,03BH,06EH,O00H,OO0H ; D_F7 

OlCH 5 O36H,O36H,01CH,0OOH,00OH 5 0O0H,O00H ; D_F8 

000H,000H,008H,01CH,01CH,008H,000H,000H ; D_F9 

0OOH,000H,OO0H,O18H,018H,00OH,000H,O0OH ; D_FA 

003H,002H,006H,024H,06CH,038H,018H,010H ; D_FB 

076H,03BH,O33H,033H,033H,00OH,000H,O00H ; D_FC 

03CH,O66H,0OCH,038H,07EH,00OH,000H,O00H ; D_FD 

000H,000H,03CH,03CH,03CH,03CH,000H,000H ; D_FE 

O00H 5 000H,OOOH,000H,0O0H,00OH,0O0H,00OH ; D_FF 



2-202 ROM BIOS 



Convert AX to ASCII (DSP-BYTE) 



ROUTINE-NAME : DSP_BYTE 

FUNCTION: THIS ROUTINE WILL CONVERT THE BYTE IN AL INTO TWO ASCII 
CHARACTERS IN AX AND DISPLAY THEM AT THE CURRENT 
CURSOR LOCATION. THE CURSOR WILL BE MOVED TWO CHARACTERS 
TO THE RIGHT. 



ENTRY CONDITIONS: 
INPUT CONDITIONS: 



RESTRICTIONS: 



DSP_BYTE: 
XLAT_NIB: 
DSP_HEX: 

NONE 



AL = BYTE TO BE CONVERTED 

AL = LOW NIBBLE TO BE CONVERTED 

AL = BYTE TO BE DISPLAYED 



EXIT CONDITIONS: 

DSP_BYTE: BYTE IS CONVERTED AND PRINTED, ASCII IN AX 

XLAT_NIB: ASCII RETURNED IN AL 

DSP_HEX: CHARACTER DISPLAYED AND CURSOR ADVANCED 



REGISTERS MODIFIED: 



AX 



t***********************************************^ 



06C6 






DSP.BYTE 


PROC 


NEAR 






06C6 


51 




PUSH 


CX 






06C7 


50 




PUSH 


AX 






SAVE FOR LOW NIBBLE DISPLAY 


06C8 


Bl 


04 


MOV 


CL,4 






SHIFT COUNT 


06CA 


D2 


E8 


SHR 


AL,CL 






NYBBLE SWAP 


06CC 


E8 


06E0 R 


CALL 


XLAT_NIB 






CONVERT THE HIGH NIBBLE 


06CF 


E8 


06E7 R 


CALL 


DSP_HEX 






DISPLAY THE FIRST CHARACTER 


06D2 


8A 


E8 


MOV 


CH,AL 






SAVE UPPER ASCII CHARACTER 


06D4 


58 




POP 


AX 






RECOVER THE NIBBLE 


06D5 


24 


OF 


AND 


AL,OFH 






ISOLATE TO LOW NIBBLE 
DO LOW NIBBLE CONVERSION 


06D7 


E8 


06E0 R 


CALL 


XLAT_NIB 






2ND ASCII CHARACTER IN AL 


06DA 


8A 


E5 


MOV 


AH,CH 






RESTORE 1ST ASCII CHAR TO AH 


06DC 


59 




POP 


CX 






06DD 


EB 


08 90 


JMP 


DSP_HEX 




; DISPLAY SECOND CHARACTER 


06E0 






DSP_BYTE 


ENDP 












CONVERT BYTE IN 


LOW NIBBLE IN 


AL TO 


ASCII IN AL 


06E0 






XLAT_NIB 


PROC 


NEAR 




06EO 


04 


90 


ADD 


AL,090H 






ADD FIRST CONVERSION FACTOR 


06E2 


27 




DAA 








ADJ FOR NUM AND ALPHA RANGE 


06E3 


14 


40 


ADC 


AL,040H 






ADD CONV AND ADJ LOW NIBBLE 


06E5 


27 




DAA 








ADJ HIGH NIB TO ASCHI RANGE 


06E6 


C3 




RET 








06E7 






XLAT_NIB 


ENDP 












PRINT CHARACTER 


IN AL USING TELETYPE 


INTERFACE TO VIDEO I/O 


06E7 






DSP_HEX 


PROC 


NEAR 




06E7 


50 




PUSH 


AX 




; SAVE REGS 


06E8 


53 




PUSH 


BX 






06E9 


B4 


OE 


MOV 


AH, 14 




; DISPLAY CHARACTER IN AL 


06EB 


B7 


00 


MOV 


BH,0 






06ED 


CD 


10 


INT 


10H 




; CALL VIDEO_IO 


06EF 


5B 




POP 


BX 




; RESTORE REGS 


06F0 


58 




POP 


AX 






06F1 


C3 




RET 








06F2 






DSP_HEX 


ENDP 









ROM BIOS 2-203 



Boot Strap Loader Entry Address 
(BOOT-STRAP) 



06F2 

= 06F2 

06F2 E9 0000 E 



************************************** 

BOOT STRAP LOADER ENTRY ADDRESS 
************************************* 

ORG 0E6F2H 

ORG 006F2H 
BOOT-STRAP EQU $ 
JMP SYS_B00T 



Keyboard Noise (KB-NOISE) 



KB_N0ISE 

THIS ROUTINE IS CALLED WHEN GENERAL BEEPS ARE REQUIRED FROM 

THE SYSTEM. 
INPUT 

DS= BIOS DATA SEGMENT 

BX=LENGH OF THE TONE 

CX=CONTAINS THE FREQUENCY 
OUTPUT 

ALL REGISTERS ARE MAINTAINED. 
HINTS 

AS CX GETS LARGER THE TONE PRODUCED GETS LOWER IN PITCH. 



06F5 










KB_NOISE 


PROC NEAR 






06F5 


F6 


06 


0016 


R 01 


TEST 


BIOS_STATUS,KB_NOISE_ACT ; ROUTINE ALREADY 


ACTIVE? 


06 FA 


75 


29 






JNZ 


KBN_EXIT 


; IF SO THEN EXIT 




06FC 


80 


OE 


0016 


R 01 


OR 


BIOS_STATUS,KB_NOISE_ACT ; SET ROUTINE ACTIVE FLAG 


0701 


50 








PUSH 


AX 






0702 


53 








PUSH 


BX 






0703 


51 








PUSH 


CX 






0704 


E4 


61 






IN 


AL,NMI_CNTL 


; GET CONTROL INFO 




0706 


50 








PUSH 


AX 


; SAVE 




0707 










L00P01: 








0707 


24 


FC 






AND 


AL,NOT SPKR_DATA+TMR2_GATE ; TURN OFF SPEAKER 
















; DATA 




0709 


E6 


61 






OUT 


NMI_CNTL,AL 


; OUTPUT TO CONTROL 




070B 


51 








PUSH 


CX 


; HALF CYCLE TIME FOR 


TONE 


070C 


E2 


FE 






LOOP 


$ 


; SPEAKER OFF 




070E 


OC 


02 






OR 


AL,SPKR_DATA 


; TURN ON SPEAKER 




0710 


E6 


61 






OUT 


NMI_CNTL,AL 


; OUTPUT TO CONTROL 




0712 


59 








POP 


CX 






0713 


51 








PUSH 


CX 


; RETRIEVE FREQUENCY 




0714 


E2 


FE 






LOOP 


$ 


; ANOTHER HALF CYCLE 




0716 


59 








POP 


CX 


; RETRIEVE FREQ. 




0717 


4B 








DEC 


BX 


; TOTAL TIME COUNT 




0718 


75 


ED 






JNZ 


L00P01 


; DO ANOTHER CYCLE 




071A 


58 








POP 


AX 


; RECOVER CONTROL 




071B 


E6 


61 






OUT 


NMI_CNTL,AL 


; RESTORE THE CONTROL 


REGISTER 


071D 


80 


26 


0016 


R FE 


AND 


BI0S_STATUS,N0T KB. 


_NOISE_ACT ; RESET ACTIVE FLAG 


0722 


59 








POP 


CX 






0723 


5B 








POP 


BX 






0724 


58 








POP 


AX 






0725 










KBN_EXIT: 









2-204 ROM BIOS 



0725 C3 
0726 



RET 
KB_N0ISE 



ENDP 



Communications Baud Rate Table 
(BAUD-TABLE) 



0729 




0729 




0729 


0417 


072B 


0300 


072D 


0180 


072F 


OOCO 


0731 


0060 


0733 


0030 


0735 


0018 


0737 


oooc 



************************************* 

COMMUNICATIONS BAUD RATE TABLE 
************************************* 

ORG 



LABEL WORD 



0E729H 




ORG 


00729H 


BAUD_TABLE 


DW 


1047 


DW 


768 


DW 


384 


DW 


192 


DW 


96 


DW 


48 


DW 


24 


DW 


12 



110 BAUD 

150 

300 

600 

1200 

2400 

4800 

9600 



TBL OF INIT VAL 



RS-232 I/O Entry Point (RS232.IO) 



************************************* 





RS232 


I/O ENTRY POINT 




**^********************************** 




ORG 


0E739H 


0739 


ORG 00739H 


= 0739 


RS232_I0 EQU $ 


0739 E9 0000 E 




JMP C0MM0_I0 



Indicate POST Error (ERR_BEEP) 



*******************************************^ 



ROUTINE-NAME 



ERR_BEEP 



FUNCTION: THIS ROUTINE WILL ISSUE LONG (3 SEC) AND/OR SHORT (1 SEC) 
TONES TO THE SPEAKER TO INDICATE POST STATUS TO THE OPERATOR 



ENTRY CONDITIONS: 

PURPOSE OF ENTRY: SEND BEEP TONES TO THE SPEAKER 
INPUT CONDITIONS: DH = NUMBER OF LONG TONES TO SOUND 

DL = NUMBER OF SHORT TONES TO SOUND 
RESTRICTIONS: NONE 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: SPEAKER IS SOUNDED 



ERROR EXIT CONDITIONS: NONE 



ROM BIOS 2-205 



0080 



REGISTERS MODIFIED: AX,BX,CX,DX 



**************************************** 
FRC_BEP EQU 80H 



******************************* 
; FORCED BEEP BIT 



073C 








ERR_BEEP 


PROC NEAR 




073C 


OA 


F6 




OR 


DH,DH 


; ANY LONG TONES? 


073E 


74 


OD 




JZ 


EB_03 


; NO THEN DO SHORT 








ISSUE 


LONG BEEPS 




0740 








EB_01: 






0740 


B3 


86 




MOV 


BL,FRC_BEP+6 


; SET BEEP CNTR LNG & FRC BEEP 


0742 


E8 


075F R 




CALL 


BEEP 




0745 


2B 


C9 




SUB 


CX,CX 


; CLEAR CX REGISTER 


0747 


E2 


FE 




EB_02: 


LOOP EB_02 


; DELAY BETWEEN BEEPS 


0749 


FE 


CE 




DEC 


DH 


; DECREMENT LONG BEEP COUNTER 


074B 


75 


F3 




JNZ 


EB_01 


; ISSUE NEXT LONG BEEP 








ISSUE 


SHORT BEEPS 




074D 








EB_03: 






074D 


OA 


D2 




OR 


DL,DL 


; ANY SHORT BEEPS? 


074F 


74 


OD 




JZ 


EB_EXIT 




0751 








EB_04: 






0751 


B3 


81 




MOV 


BL,FRC_BEP+1 


; SET BEEP CNTR FOR SHORT BEEP 


0753 


E8 


075F R 




CALL 


BEEP 




0756 


2B 


C9 




SUB 


CX.CX 


; CLEAR CX REGISTER 


0758 


E2 


FE 




EB_05: 


LOOP EB_05 


; DELAY BETWEEN BEEPS 


075A 


FE 


CA 




DEC 


DL 




075C 


75 


F3 




JNZ 


EB_04 


; NEXT SHRT BEEP IF NOT COMPLT 


075E 








EB_EXIT: 






075E 


C3 






RET 




; RETURN TO CALLER 


075F 








ERR_BEEP 


ENDP 





Beep to Speaker (BEEP) 



********************************************************************* 



ROUTINE-NAME 



BEEP 



FUNCTION: TO BEEP THE SPEAKER 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: TO BEEP THE SPEAKER 

INPUT CONDITIONS: BL CONTAINS THE COUNT FOR THE LENGTH OF TIME 
MULTIPLIED BY 500 MSECS FOR THE SPEAKER TO SOUND. IF THE MSB 
IN BL IS SET THE SPEAKER IS SOUNDED WHETHER OR NOT IT WAS 
DISABLED. 

RESTRICTIONS: NONE 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: 
ERROR EXIT CONDITIONS: 
REGISTERS MODIFIED: NONE 

INTERNALLY REFERENCED ROUTINES: NONE 

EXTERNALLY REFERENCED ROUTINES: 

********************************************************************* 



075F 






BEEP 


PROC 


075F 


50 




PUSH 


AX 


0760 


53 




PUSH 


BX 


0761 


51 




PUSH 


CX 


0762 






BEEP_SUB: 




0762 


BO 


B6 


BP1: 


MOV 



NEAR 



AL,0B6H 



SAVE REGISTERS 



NO STACK ENTRY POINT 
TIMER 2,MSB,LSB, BINARY 



2-206 ROM BIOS 



0764 


E6 


43 


OUT 


TIMER_CTL 


AL 




WRITE TO TIMER CONTROL PORT 


0766 


B8 


0533 


MOV 


AX.533H 






DIVISOR FOR 1000 HZ 


0769 


E6 


42 


OUT 


TIMER2,AL 






TIMER 2 COUNT LSB 


076B 


8A 


C4 


MOV 


AL,AH 








076D 


E6 


42 


OUT 


TIMER2,AL 




J 


TIMER 2 COUNT MSB 


076F 


E4 


61 


IN 


AL,NMI_CNTL 




GET SPEAKER ENABLE BIT 


0771 


8A 


EO 


MOV 


AH,AL 




; 


SAVE SPEAKER ENABLE SETTING 


0773 


OC 


03 


OR 


AL,SPKR_DATA+TMR2_GATE ; ENABLE SPEAKER 


0775 


F6 


C3 80 


TEST 


BL,FRC_BEP 


; 


CHECK FOR FORCED BEEP BIT 


0778 


74 


02 


JZ 


BP10 




> 


JUMP IF NOT FORCED BEEP 


077A 


OC 


04 


BP5: 


OR 


AL 


EN_SPKR 


; SET SPEAKER ENABLE BIT 


077C 


E6 


61 


BP10: 


OUT 


NM] 


_CNTL,AL 


; TURN ON SPEAKER ENABLE 


077E 


80 


E3 7F 


AND 


BL,OFFH-FRC_BEP ; 


MASK OUT FORCED BEEP BIT 


0781 


B9 


0000 


MOV 


CX,0 






SET CNT TO WAIT 500 MSECS 


0784 


E2 


FE 


BP15: 


LOOP 


BP15 ; 


WAIT 500 MSECS 


0786 


FE 


CB 


DEC 


BL 






DECREMENT COUNTER 


0788 


75 


FA 


JNZ 


BP15 




; 


LOOP IF COUNT NOT ZERO 


078A 


8A 


C4 


BP20: 


MOV 


AL 


AH ; 


SET PREVIOUS PORT SETTING 


078C 


E6 


61 


OUT 


NMI_CNTL, 


^L 


i 


SEND TO PPI 


078E 


B8 


FOOO 


MOV 


AX,OFOOOH 






CHECK FOR ROM STACK 


0791 


8C 


D3 


MOV 


BX,SS 








0793 


3B 


C3 


CMP 


AX,BX 








0795 


74 


03 


JE 


BEEP_EXT 




J 


IF ROM STACK THEN RETURN 


0797 


59 




POP 


CX 






RESTORE REGISTERS 


0798 


5B 




POP 


BX 








0799 


58 




POP 


AX 








079A 






BEEP_EXT: 










079A 


C3 




RET 






; 


RETURN 


079B 






BEEP 


ENDP 









Disable All Interrupts (DISABLE _NMI) 



************************** 

DISABLE ALL INTERRUPTS 
************************** 



079B 

079B FA 

079C 50 

079D BO 07 

079F E6 72 

07A1 58 

07A2 C3 
07A3 



DISABLE_NMI PROC NEAR 


CLI 


; DISABLE MASKABLE INTERRUPTS 


PUSH 


AX 


MOV 


AL,DISABLE_SLEEP+CLOCK_RUN ; DISABLE NMIS 


OUT 


CLOCK_CTL,AL ; WRITE TO PORT 


POP 


AX 


RET 




DISABLE. 


_NMI ENDP 



Enable Global NMIs (ENABLE _NMI) 



r ******************** **************************************** 

ENABLE GLOBAL NMI'S 
************************************************************* 

07A3 ENABLE_NMI PROC NEAR 

07A3 50 PUSH AX 



ROM BIOS 2-207 



07A4 BO 27 

07A6 E6 72 

07A8 58 

07A9 C3 
07AA 



MOV 
OUT 
POP 
RET 
ENABLE_NMI 



AL,DISABLE_SLEEP+CLOCK_RUN+GLOBAL_NMI 
CLOCK_CTL,AL ; WRITE TO PORT 
AX 

ENDP 



ENABLE NMIS 



Get RTC Register (GET.RTC-REG) 



<<******************************************************************** 

ROUTINE-NAME : GET_RTC_REG 

FUNCTION: THIS ROUTINE WILL GET THE DESIGNATED RTC REGISTER LOCATION 

INTO THE AL REGISTER. ALL INTERRUPTS WILL BE DISABLED DURING 

THIS PROCESS AND RESTORED WHEN COMPLETE. 
ENTRY CONDITIONS: 

INPUT CONDITIONS: AH = REAL TIME CLOCK REGISTER NUMBER 

RESTRICTIONS: NONE 



EXIT CONDITIONS: 
REGISTERS MODIFIED: 



AL = CONTENTS OF SPECIFIED REGISTER 
AL 



************************************************ 



******************* 



07AA 






GET_RTC. 


.REG PROC NEAR 




07AA 


9C 




PUSHF 






07AB 


FA 




CLI 




; DISABLE INTERRUPTS 


07AC 


53 




PUSH 


BX 




07AD 


E4 


72 


IN 


AL,CLOCK_CTL 




07AF 


8A 


D8 


MOV 


BL,AL 


; BL <-- NMI CONTROL STATE 


07B1 


24 


DF 


AND 


AL,NOT GLOBAL_NMI 


; DISABLE NMI 


07B3 


E6 


72 


OUT 


CLOCK_CTL,AL 




07B5 


8A 


C4 


MOV 


AL,AH 




07B7 


E6 


70 


OUT 


RTCR_PORT,AL 


; WRITE RAM ADDRESS 


07B9 


EB 


00 


JMP 


$+2 




07BB 


E4 


71 


IN 


AL,RTCD_PORT 


; READ DATA 


07BD 


8A 


F8 


MOV 


BH,AL 


; BH <-- DATA 


07BF 


8A 


C3 


MOV 


AL,BL 




07C1 


E6 


72 


OUT 


CLOCK_CTL,AL 


; RESTORE NMI STATE 


07C3 


8A 


C7 


MOV 


AL,BH 


; RESTORE DATA 


07C5 


5B 




POP 


BX 




07C6 


9D 




POPF 




; RESTORE INTERRUPT STATE 


07C7 


C3 




RET 






07C8 






GET_RTC. 


_REG ENDP 





Put RTC Register (PUT_RTC_REG) 



***************************** 

ROUTINE-NAME : PUT_RTC_REG 



******************** 



FUNCTION: THIS RTNE WILL WRITE THE DESIGNATED RTC REGISTER LOCATION 
WITH THE CONTENTS OF THE AL REGISTER. ALL INTERRUPTS WILL BE 
DISABLE DURING THIS PROCESS AND RESTORED WHEN COMPLETE. 



ENTRY CONDITIONS: 

INPUT CONDITIONS: 



RESTRICTIONS: 



AH - REAL TIME CLOCK REGISTER NUMBER 
AL = DATA TO BE STORED INTO REGISTER 
NONE 



2-208 ROM BIOS 



07C8 




07C8 


9C 


07C9 


FA 


07CA 


53 


07CB 


8A D8 


07CD 


E4 72 


07CF 


8A F8 


07D1 


24 DF 


07D3 


E6 72 


07D5 


8A C4 


07D7 


E6 70 


07D9 


8A C3 


07DB 


E6 71 


07DD 


8A C7 


07DF 


E6 72 


07E1 


8A C3 


07E3 


5B 


07E4 


9D 


07E5 


C3 


07E6 





EXIT CONDITIONS 


: DATA 


IN REGISTER MODIFIED 


REGISTERS MODIFIED: NONE 






*************************************** 


************************ 


PUT_RTC_ 


.REG PROC 


NEAR 




PUSHF 








CLI 






DISABLE INTERRUPTS 


PUSH 


BX 






MOV 


BL,AL 




BL <-- DATA 


IN 


AL,CLOCK_CTL 






MOV 


BH,AL 




BH <-- NMI CONTROL SAVE 


AND 


AL,NOT GLOBAL 


_NMI ; 


DISABLE NMI 


OUT 


CLOCK_CTL,AL 






MOV 


AL,AH 




GET ADDRESS 


OUT 


RTCR_PORT,AL 




WRITE RAM ADDRESS 


MOV 


AL,BL 




GET DATA 


OUT 


RTCD_PORT,AL 




WRITE DATA 


MOV 


AL,BH 






OUT 


CLOCK_CTL,AL 




RESTORE NMI STATE 


MOV 


AL,BL 




RESTORE DATA 


POP 


BX 






POPF 






RESTORE INTERRUPT STATE 


RET 








PUT_RTC_ 


REG ENDP 







Setup for Battery Savings 
(BAT_SAV_SETUP) 



*************************************************** 



********** 



07E6 

07E6 B4 OB 

07E8 E8 07AA R 

07EB 8B D8 

07ED 80 CB 10 

07F0 B9 0004 

07F3 B4 19 

07F5 E8 07AA R 

07F8 3C 00 

07FA 75 10 

07FC FE C4 

07FE E2 F5 

0800 B4 17 

0802 E8 07AA R 

0805 A8 40 

0807 75 03 



0809 80 E3 EF 



BAT_SAV_SETUP 

THIS ROUTINE ENABLES THE RTC 1 SEC UPDATE ENDED INTERRUPT AS A 
TIME BASE FOR THE LCD BLANK AND THE SYSTEM POWER OFF OPTIONS 
IF THE SYSTEM PROFILE INDICATES THAT ONE OR BOTH OF THESE 
OPTIONS ARE ENABLED. IF NOT OR WE ARE ON EXTERNAL PWR THEN THE 
INTERRUPT IS DISABLED. 

RESTRICTIONS: RTC, AND SYSTEM SUSPEND NMIS MUST BE DISABLED 

BEFORE CALL TO THIS ROUTINE 
REGISTERS MODIFIED: 

AX,BX,CX 

k-************** **************************************** *********** 



GET CURRENT MODE 

SAVE ADDRESS AND MODE 

DEFAULT TO SET ENABLE ON 
CHECK THE FOUR TIME VALUES 
SPECIFY BEG @ OF PROFILE 



BAT_SAV_ 


.SETUP PROC NEAR 


MOV 


AH,RTC_MODE ; 


CALL 


GET_RTC_REG 


MOV 


BX,AX ; 


OR 


BL,UIE_ENABLE ; 


MOV 


CX,4 ; 


MOV 


AH,RTC_LCD_INACT ; 


BAT_S01 


CALL GET_RTC_ 


CMP 


AL,0 ; 


JNE 


BAT_S02 ; 


INC 


AH ; 


LOOP 


BAT_S01 


MOV 


AH,RTC_SYS_PR0F1 ; 


CALL 


GET_RTC_REG 


TEST 


AL,LOWBAT_ENABLE 


JNZ 


BAT_S02 ; 



CHECK TIME FOR 

IF NOT 0, OPTION ACTIVATED 

LOOP TO CHECK NEXT BYTE 



GET LOW BAT WARNING STATE 

JUMP IF WARNING ENABLED 
DISABLE UPDATE ENDED INTERRUPT (BATTERY SAVINGS MODE IS DISABLED) 
AND BL,NOT UIE_ENABLE ; TURN OFF INTERRUPT 



ROM BIOS 2-209 



; UPDATE MODE REGISTER IN RTC 



080C 


8B C3 


BAT_S02 : 


MOV AX,BX ; 


080E 


E8 07C8 R 


CALL 


PUT_RTC_REG 


0811 


E4 61 


IN 


AL,NMI_CNTL 


0813 


24 F7 


AND 


AL,NOT DIS_ALARM 


0815 


E6 61 


OUT 


NMI_CNTL,AL 


0817 


IE 


PUSH 


DS 


0818 


E8 085C R 


CALL 


DDS ; 






ASSUME 


DS : DATA 


081B 


80 OE 0016 R 20 


OR 


BIOS_STATUS,KYBD_ACTIVE 


0820 


IF 


POP 


DS 


0821 


C3 


RET 





AX,BX ; RESTORE MODE ADDR AND DATA 



ENABLE RTC INTERRUPT 



SET DS TO DATA SEGMENT 

: FORCE RELOAD OF COUNTERS 



0822 



BAT_SAV_SETUP ENDP 



Keyboard I/O Entry Point 
(KEYBOARD-IO) 



082E 

= 082E 

082E E9 0000 E 



************************************* 

KEYBOARD I/O ENTRY POINT 
************************************* 

ORG 0E82EH 

ORG 0082EH 
KEYB0ARD_I0 EQU $ 
JMP KYBD_IO 



Keyboard Reset (KYBD.RESET) 



SUBTTL KYBD.RESET 
********************************************************************* 

ROUTINE-NAME : KYBD.RESET 

FUNCTION: THIS ROUTINE INITIALIZES THE KEYBOARD CONTROL AREA TO A 
NO KEY CONDITION. 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: PERFORM KEYBOARD DATA AREA INITIALIZATION 

INPUT CONDITIONS: DS:DATA, NMI MUST BE DISABLED 

RESTRICTIONS: KEYBOARD NMI 'S MUST BE DISABLED 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: KEYBOARD DATA AREA INITIALIZED 

ERROR EXIT CONDITIONS: NONE 

REGISTERS MODIFIED: ES,SI ,DI ,AX,CX 

********************************************************************* 



0831 








KYBD_RESET 
ASSUME 


PROC NEAR 
ES : DATA, DS: DATA 


0831 


IE 






PUSH 


DS 


0832 


07 






POP 


ES 








CLEAR 


INTERRUPT 9 


AND INTERRUPT 16 B 


0833 


2B 


CO 




SUB 


AX, AX 


0835 


BF 


0017 R 




MOV 


DI, OFFSET KB_AREA1 


0838 


B9 


0027 




MOV 


CX,KB_AREA1_LNG 



CLEAR KEYBOARD AREA 1 



2-210 ROM BIOS 



083 B 
083D 
0840 



F3/ AA 
A2 0096 R 
89 3E 0082 R 



REP 
MOV 
MOV 



STOSB 

KB_FLAG_3,AL 

BUFFER_END,DI 



CLEAR ADDITIONAL FLAGS 
SET UP BUFFER_END ADDR 



SETUP UP DEFAULT KEYBOARD BUFFER POINTERS 



0844 BE 001E R 

0847 89 36 001A R 

084B 89 36 001C R 

084F 89 36 0080 R 



MOV SI, OFFSET KB_BUFFER 

MOV BUFFER_HEAD,SI 

MOV BUFFER_TAIL,SI 

MOV BUFFER_START,SI 



SETUP KEYBOARD PARAMETERS 



INITIALIZE KEYBOARD NMI CONTROL AREA AND BUFFER (KB_AREA2) 



0853 BF 00B4 R 

0856 B9 0019 

0859 F3/ AA 

085B C3 
085C 



MOV 
MOV 
REP 
RET 
KYBD_RESET ENDP 



DI, OFFSET KB_AREA2 

CX,KB_AREA2_LNG 

STOSB 



Set Data Segment (DDS) 



************************************************* 

ROUTINE-NAME : DDS 

FUNCTION: SET DATA SEGMENT (DS) TO BIOS DATA AREA 

ENTRY CONDITIONS: 

INPUT CONDITIONS: NONE 
RESTRICTIONS: NONE 

EXIT CONDITIONS: DS = SET TO BIOS DATA SEGMENT 
REGISTERS MODIFIED: DS 

085C ' DDS PROC NEAR 

085C 50 PUSH AX ; SAVE AX 

085D B8 R MOV AX, DATA 

0860 8E D8 MOV DS,AX ; SET SEGMENT 

0862 58 POP AX ; RESTORE AX 

0863 C3 RET 

0864 DDS ENDP 



Calculate Absolute Vector Offset 
(GET-VECTOR@) 



************************************************** 

ROUTINE: GET_VECTORG> 

FUNCTION: CALCULATE ABSOLUTE VECTOR OFFSET OF 
HARDWARE INTERRUPT LEVELS. 

INPUT: CL = HARDWARE INTERRUPT LEVEL # 0-7 
OUTPUT: SI = ABSOLUTE OFFSET ADDRESS OF VECTOR 



REGISTERS MODIFIED: SI 
*************************** 



****************** 



0864 




GET_VECTOR@ PRO 


0864 


50 


PUSH 


AX 


0865 


2A E4 


SUB 


AH, AH 


0867 


E4 72 


IN 


AL,CLOCK_CTL 


0869 


24 BF 


AND 


AL,OBFH 


086B 


E6 72 


OUT 


CLOCK_CTL,AL 


086D 


E4 63 


IN 


AL,63H 



; SET READ INTERRUPT REG 
; READ CURRENT IRPT TYPE BITS 



ROM BIOS 2-211 



086F 


24 F8 


AND 


AL,0F8H 


0871 


02 CI 


ADD 


AL,CL 


0873 


Dl E0 


SHL 


AX,1 


0875 


Dl EO 


SHL 


AX,1 


0877 


8B FO 


MOV 


SI, AX 


0879 


58 


POP 


AX 


087A 


C3 


RET 




087B 




GET_VECTORG> 



CLEAR UNUSED BITS 
ADD OFFSET TO LEVEL '# 
MULTIPLY BY 4 

MOVE INTO OUTPUT REGISTER 



Keyboard Support Tables 



087E 



087E 
087E 52 
0882 38 
= 0008 



***************************************************** 
KEYBOARD SUPPORT TABLES 

NOTE: A -1 ENTRY INDICATES THE CORRESPONDING KEY IS 
EXCLUDED FROM THE TABLE 
***************************************************** 

ORG 0E87EH 

ORG 0087EH 



SHIFT & STATE KEY PCI SCAN CODES 



K6 LABEL BYTE 

45 46 DB INS_KEY,CAPS_KEY,NUM_KEY,SCROLL_KEY 

2A 36 DB ALT_KEY,CTL_KEY,LEFT_KEY,RIGHT_KEY 

K6LEQU $-K6 



SHIFT & STATE KEY "MASKS" 



K7 LABEL BYTE 
20 10 DB INS_SHIFT,CAPS_SHIFT,NUM_SHIFT,SCROLL_SHIFT ; KB 
02 01 DB ALT_SHIFT,CTL_SHIFT,LEFT_SHIFT,RIGHT_SHIFT ; KB 



CTL + TYPEWRITER KEYS - ASCII CODES 



088E IB 

IE 
0896 FF 

FF 
089E 17 

09 
08A6 10 

13 
08AD 04 

OC 
08B6 FF 

16 
08BE OE 

FF 
08C6 20 



08C8 



08C8 5E 
08C.D 63 



08D2 
08D7 



08DB FF 



08E1 

08E1 IB 
36 



00 FF FF FF K8 DB ESC, -1 ,NUL,-1 ,-1,-1 ,RS,-1 ; ESC 1 2 3 4 5 6 7 

FF IF FF 7F DB - 1 , - 1 , - 1 , US , - 1 , DEL , - 1 , DC1 ; 8 9 - = BKSPC TAB Q 

12 14 19 15 DB ETB,ENQ,DC2,DC4,EM,NAK,HT,SI015 ; WERTYU 10 

ID OA FF 01 DB DLE,ESC,GS,LF,-1,S0H,DC3 ; P [ ] ENTER CTL A S 

07 08 OA OB DB EOT, ACK006, BEL, BKSPC, LF,VT,FF, -1,-1 ; D F G H J K L ; ' 

FF 

1C 1A 18 03 DB -1,-1,FS,SUB,CAN,ETX,SYN,STX ; Q LSHFT \ Z X C V B 

FF FF FF FF DB SO, ENTER, -1,-1, -1,-1 ,-1,-1 ; B N M , . / RSHFT ALT 

DB SPACE, -1 ; SPACE CAPSLOCK 



CTL + (F KEYS) & (CURSOR KEYS) - EXTENDED ASCII CODES 



60 61 62 
65 66 67 



77 FF 
FF 74 



FF 76 FF FF DB 



K9 LABEL BYTE 

; CTL + (Fl - F10) 
94,95,96,97,98 
99,100,101,102,103 

; CTL + CURSOR KEYS 
-1,-1, CTL_HOME , - 1 , CTL_PGUP 
- 1 , CTL_CUR_LFT , - 1 , CTL_CUR_RHT 
-1,CTL_END,-1,CTL_PGDN,-1,-1 



DB 
DB 



DB 
DB 



LOWER CASE TYPEWRITER KEYS - ASCII CODES 



K10LABEL BYTE 
32 33 34 35 DB ESC, ' 1234567890-= ', BKSPC, TAB 
38 39 30 2D 



2-212 ROM BIOS 



08 FO 



0909 



091B 
091B 



092A 



0944 
0952 



0955 
0955 
095A 



095F 
095F 
0964 



0969 
0969 



0976 
0976 
097A 
097E 
0981 



3D 08 
71 77 

75 69 
OD FF 
67 68 
27 

60 FF 

76 62 
2F FF 



IB 21 
5E 26 
2B 08 
51 57 
55 49 
OD FF 
47 48 
22 7E 
FF 7C 
42 4E 
FF 00 
FF 20 



54 55 
59-5A 



68 69 
6D 6E 



37 38 
36 2B 
2E 



47 48 
4B FF 
4F 50 
52 53 



09 

65 72 74 79 DB 

6F 70 5B 5D 

61 73 64 66 

6A 6B 6C 3B 

5C 7A 78 63 DB 

6E 6D 2C 2E 

2A FF 20 FF 



'qwertyuiopG ' , ENTER, -1, 'asdfghjkl ; ' ,APOSTR 



'Q'.-l.'Xzxcvbnm,. /',-!, '*' ,-1, SPACE, 



UPPER CASE TYPEWRITER KEYS - ASCII CODES 



K11LABEL 

40 23 24 25 DB 
2A 28 29 5F 

00 

45 52 54 59 DB 

4F 50 7B 7D 

41 53 44 46 
4A 4B 4C 3A 



5A 58 43 56 
4D 3C 3E 3F 



FF 



BYTE 
ESC, , !@#$%-i&*()_+\BKSPC, PSEUDO ; PSEUDO SHFT_TAB 

'QWERTYUIOP{}', ENTER, -1,'ASDFGHJKL:"- 1 

-1," |ZXCVBNM<>?',-1, PSEUDO ; PSEUDO FOR PRTSC 
-1, SPACE, -1 





SHIFT + (Fl - F10) - EXTENDED ASCII CODES 


- 


56 57 58 
5B 5C 5D 


K12LABEL BYTE 
DB 84,85,86,87,88 
DB 89,90,91,92,93 






ALT + (Fl - F10) - EXTENDED ASCII CODES 


- 


6A 6B 6C 
6F 70 71 


K13LABEL BYTE 
DB 104,105,106,107,108 
DB 109,110,111,112,113 






KEYPAD KEYS - ASCII CODES 


- 



K14LABEL 
39 2D 34 35 DB 
31 32 33 30 



BYTE 
789-456+1230.' 



IN KEYPAD_STATE 



BASE CASE KEYPAD KEYS - EXTENDED ASCII CODES 



49 FF 
4D FF 
51 



K15LABEL BYTE 

DB H0ME_KEY,CUR_UP,PGUP,-1 

DB CUR_LFT,-1,CUR_RHT,-1 

DB END_KEY,CUR_DN,PGDN 

DB INS_KEY,DEL_KEY 



KEYBOARD INTERRUPT 9 ENTRY POINT 



ORG 



0987 

= 0987 

0987 E9 0000 E 



0E987H 

ORG 
KB_INT 

JMP 



00987H 

EQU $ 
KYBD_INT9 
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System Setup (SYS-SETUP) 



SUBTTL SYS_SETUP 
************************************************************ 



ROUTINE-NAME 



SYS_SETUP 



098A 



098A 
0990 
0992 



0998 
0998 



099B 
099D 
099F 
09A6 
09AB 
09B2 



09B7 
09 BA 



FUNCTION: THIS ROUTINE INITIALIZES INTRPT VECTORS AND SETS UP DATA 
AREAS FOR DEVICES PRIOR TO BOOTING FROM DISKETTE. 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: PERFORM SYSTEM SETUP PRIOR TO BOOT 

INPUT CONDITIONS: NONE 

RESTRICTIONS: NONE 



EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: RETURN 

ERROR EXIT CONDITIONS: NONE 

REGISTERS MODIFIED: AX,BX,CX,DX 

t******************************************* 

ASSUME DS:DATA,ES:ABSO 

SYS_SETUP PROC NEAR 

CLEAR THE RESET FLAG IF NOT LOOP MODE 



************* 



******** 



81 3E 0072 R ABCD 

74 06 

C7 06 0072 R 0000 



CMP RESET_FLAG,LOOP_MODE 
JE SYS_SETO 
MOV RESET_FLAG,0 



SET UP THE INTERRUPT VECTORS TO TEMP INTERRUPT 



SYS_SETO: 
E8 OAOC R CALL VECTOR_SETUP 

COMPLETE THE VECTOR SETUP 



SETUP INTERRUPT VECTORS 



2B CO SUB 

8E CO MOV 

26: C7 06 01B0 R 1F53 R 
26: 8C OE 01B2 R MOV 
26: C7 06 0128 R 1F53 R 
26: 8C OE 012A R MOV 



AX, AX 

ES,AX 
MOV WORD PTR[RESUME_PTR], OFFSET DUMMY_RETURN 

WORD PTR[RESUME_PTR+2],CS ; SET SEGMENT 
MOV WORD PTR[RTCA_PTR], OFFSET DUMMY_RETURN 

WORD PTR[RTCA_PTR+2],CS ; SET SEGMENT 



SET UP KEYBOARD DATA AREA 



E8 0831 R 

80 OE 00B4 R 08 



CALL 
OR 



KYBD_RESET ; RESET KEYBOARD 
KB_NMI_CNTL,CLICK_ON ; ACTIVATE KEYBOARD CLICKER 



09BF B4 OB 

09C1 E8 07AA R 

09C4 24 OF 

09C6 E8 07C8 R 

09C9 E8 07E6 R 



09CC E4 7F 

09 CE A8 40 

09D0 75 13 

09D2 B4 17 

09D4 E8 07AA R 



DISABLE RTC PERIODIC, ALARM AND UPDATE INTERRUPTS AND RESET SET 

MOV AH,RTC_MODE ; GET RTC MODE CONTROL 

CALL GET_RTC_REG 

AND AL,NOT PIE_ENABLE+SET_CLOCK+AIE_ENABLE+UIE_ENABLE 

CALL PUT_RTC_REG ; UPDATE RTC MODE CONTROL 

CALL BAT_SAV_SETUP ; SETUP FOR BATTERY SAVINGS 



TURN OFF MODEM IF ON BATTERY POWER AND PROFILE SO INDICATES 

; CHECK FOR BATTERY OPERATION 



IN 

TEST 

JNZ 

MOV 
CALL 



AL,PWR_STAT 

AL,EXT_PWR 

SYS_SET2 

AH,RTC_SYS_PR0F1 
GET_RTC_REG 



; GET SYSTEM PROFILE 
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09D7 
09D9 


A8 
75 


02 

OA 


09DB 
09DD 
09DF 
09E2 


B3 
2A 
E8 
EB 


02 
FF 

0000 E 
09 90 


09E5 
09E5 
09E7 
09 EA 


B4 
E8 
E8 


ID 

07AA R 
0000 E 


09ED 
09ED 
09EF 
09F1 


E4 
OC 
E6 


77 
80 
77 


09 F3 
09F5 
09F7 


E4 
OC 
E6 


7C 
80 
7C 


09 F9 
09FB 
09FD 
09FF 


E4 
24 
OC 
E6 


61 
D7 
04 
61 


0A01 
0A03 


BO 
E6 


80 
AO 


0A05 
0A07 
0A09 
OAOB 
OAOC 


E4 
24 
E6 
C3 


21 
BC 
21 



TEST 
JNZ 



AL,MODEM_BATT 
SYS_SET2 



OPERATE MODEM ON BATTERY? 
YES THEN JUMP 



ON BATTERY POWER AND MODEM PROFILE INDICATES NO BATTERY OPERATION 



MOV 
SUB 
CALL 
JMP 



BL,ACT_MODEM 
BH,BH 
COM_POWER 
SYS_SET3 



SPECIFY MODEM OFF 
INDICATE POWER OFF REQUEST 
TURN OFF PRIMARY COM POWER 



MODEM POWER LEFT ON SO SET MODEM ACCORDING TO CONFIGURATION 



SYS_SET2: 
MOV 
CALL 
CALL 



AH,RTC_M0D_PR0F1 

GET_RTC_REG 

MODEM_CONFIG 



ENABLE DISKETTE NMIS 



SYS_SET3: 
IN 
OR 
OUT 



AL,DSKT_CNTL 

AL,DSKT_NMI 

DSKT_CNTL,AL 



ENABLE KEYBOARD NMIS 



IN 
OR 
OUT 



AL,KYBD_CNTL 

AL,EN_KYBD_NMI 

KYBD_CNTL,AL 



RETRIEVE MODEM PROFILE 
GET PROFILE IN AL REGISTER 
GO SETUP MODEM 



READ FROM DISKETTE PORT 
SET ON DISKETTE NMI ENABLE 
OUT IT 



ENABLE KEYBOARD NMI 'S 



ENABLE SPEAKER, RTC ALARM NMI, AND I/O CHECK NMI 

IN AL,NMI_CNTL ; ENABLE RTC INTERRUPT 

AND AL,NOT DIS_ALARM+DIS_IOCHK 

OR AL,EN_SPKR ; ENABLE SPEAKER 

OUT NMI_CNTL,AL 

ENABLE I/O CHANNEL CHECK 



MOV 
OUT 



AL,EN_IOCHK 
IONMI_CNTL,AL 



ENABLE KEYBOARD, TIMER AND DISKETTE INTERRUPTS 



IN 
AND 
OUT 
RET 
SYS_SETUP ENDP 



AL,INTA01 

AL,OBCH 

INTA01,AL 



ENABLE KEYBOARD AND TIMER 
AND DISKETTE INTERRUPTS 



Vector Setup (VECTOR-SETUP) 



SUBTTL VECTOR_SETUP 



ROUTINE-NAME 



VECTOR_SETUP 



FUNCTION: THIS ROUTINE INITIALIZES INTERRUPT VECTORS 0-32 AND THE 

PRINTER AND RS232 TIMEOUT VALUES. VIDEO VECTORS 10H, 1DH, 1FH,44H 
ARE NOT INITIALIZED BY THIS ROUTINE. THEY ARE INITIALIZED IN 
THE LCD_CONFIG ROUTINE DURING POST. 

ENTRY CONDITIONS: 

INPUT CONDITIONS: DS:DATA 

RESTRICTIONS: NMI 'S MUST BE DISABLED 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: INTERRUPT VECTORS AND TIMEOUTS SET 
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ERROR EXIT CONDITIONS: NONE 



REGISTERS MODIFIED: 



ES,SI,DI,AX,CX 



*********************************************** 
VECTOR_SETUP PROC NEAR 

ASSUME DS:DATA,ES:ABSO 



********************** 



OAOC 


IE 






PUSH 


DS 






SAVE DS 


OAOD 


B9 


OOIF 


MOV 


CX,31 






FILL ALL 31 INTERRUPTS 


OAIO 


2B 


FF 




SUB 


DI,DI 






FIRST INTERRUPT LOCATION 


OA12 


8E 


C7 




MOV 


ES,DI 






SET ES=ABSO 










INITIALIZE FIRST 


31 VECTORS 


TO Dll 


(TEMPORARY INTERRUPT HANDLER) 










VECTORS 0-1EH SET 


TO Dll 






0A14 








SETUP_1: 








0A14 


B8 


1F23 R 


MOV 


AX, OFFSET 


Dll 


; MOVE ADDR OF INTR PROC TO 


0A17 


83 


FF 


40 


CMP 


DI,10H*4 




; VIDEO INT 10H? 


OAIA 


74 


05 




JE 


SETUP.1A 






YES THEN SKIP 


OA1C 


83 


FF 


74 


CMP 


DI,1DH*4 






VIDEO INT 1DH? 


OA1F 


75 


05 




JNE 


SETUP_1B 






YES THEN SKIP 


OA21 








SETUP_1A: 








0A21 


83 


C7 


04 


ADD 


DI,4 




; SKIP VECTORS 


0A24 


E2 


EE 




LOOP 


SETUP_1 






0A26 








SETUP_1B: 








OA26 


AB 






STOSW 






; SET VECTORS 


OA27 


8C 


C8 




MOV 


AX,CS 




; GET ADDR OF INTR PROC SEG 


0A29 


AB 






STOSW 








0A2A 


E2 


E8 




LOOP 


SETUP.l 









-INITIALIZE BIOS VECTORS 8-1EH FROM VECTOR_TABLE 
SKIPPING VIDEO VECTORS 10H AND 1DH 



0A2C 


B9 


0017 


0A2F 


OE 




0A30 


IF 




0A31 


BE 


1EF3 R 


0A34 


BF 


0020 R 


0A37 






0A37 


83 


FF 40 


0A3A 


74 


05 


0A3C 


83 


FF 74 


0A3F 


75 


08 


0A41 






0A41 


83 


C7 04 


0A44 


83 


C6 02 


0A47 


E2 


EE 


0A49 






0A49 


A5 




0A4A 


83 


C7 02 


0A4D 


E2 


E8 


0A4F 


IF 





MOV 


CX,23 






GET VECTOR COUNT 


PUSH 


CS 






SETUP DS SEG REG 


POP 


DS 








MOV 


SI, OFFSET 


VECTOR_TABLE 


MOV 

SETUP_2: 

CMP 


DI, OFFSET 


INT. 


_PTR 




DI,10H*4 






VIDEO INT 10H? 


JE 


SETUP_2A 






YES THEN SKIP 


CMP 


DI,1DH*4 






VIDEO INT 1DH? 


JNE 


SETUP_2B 






YES THEN SKIP 


SETUP_2A: 










ADD 


DI ,4 






SKIP VIDEO VECTO 


ADD 


SI, 2 








LOOP 


SETUP_2 








SETUP_2B: 










MOVSW 








SET VECTORS 


ADD 


DI ,2 






SKIP OVER SEGMEN 


LOOP 


SETUP_2 








POP 


DS 






RESTORE DS 



SET UP NMI, PRINT SCREEN, BASIC SEGMENT, 
USER REAL TIME CLOCK ALARM VECTORS 



RESUME VECTOR, AND 



0A50 26: C7 06 0008 R 

0000 E 
0A57 26: C7 06 0014 R 

1F54 R 
0A5E 26: C7 06 0062 R 

F600 



MOV NMI_PTR, OFFSET NMI_FLIH ; NMI INTERRUPT HANDLER 

MOV INT5_PTR, OFFSET PRINT_SCREEN ; PRINT SCREEN 

MOV BASIC_PTR+2,0F600H ; SEGMENT FOR RESIDENT BASIC 

ASSUME ES : DATA, DS: DATA 
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0A65 IE 
0A66 07 



PUSH 
POP 



DS 
ES 



SET INITIAL RS232 AND PRINTER TIMEOUT VALUES 



0A67 
0A6A 
0A6D 
0A70 
0A75 
0A77 



A2 006B R 

BF 0078 R 

B8 1414 

83 3E 0008 R 78 

75 02 

BO 23 



0A79 

0A79 AB 

0A7A 8A C4 

0A7C AA 

0A7D B8 0101 

0A80 AB 

0A81 AB 

0A82 C3 
0A83 



MOV INTR_FLAG,AL ; CLEAR STRAY INTERRUPT FLAG 

MOV DI, OFFSET PRINT_TIM_OUT ; SET DEFAULT PTR TIMEOUT 

MOV AX,1414H ; DEFAULT = 20 

CMP PRINTER_BASE,078H ; PORTABLE PRINTER INSTALLED? 

JNE SETUP_3 ; JUMP IF NOT 

MOV AL,23H ; SET PORTABLE TO 25 SECS 



SETUP_3: 

STOSW 

MOV AL,AH 

STOSB 

MOV 

STOSW 

STOSW 

RET 
VECTOR_SETUP ENDP 



AX,0101H 



THREE TIMEOUT VALUES 
USE LPT2 TIMEOUT VALUE 



RS232 TIMEOUTS = 01 
4 TIMEOUTS 



RETURN TO CALLER 



0A87 



********************************************* 

KEYBOARD TABLES CONTINUED 
********************************************* 

ORG 0EA87H 
ORG 



0A87 

0A87 52 4F 50 51 4B DB 

0A8C 4C 4D 47 48 49 DB 



O0A87H 

ALT + (KEYPAD - 9) - EXTENDED ASCII CODES 
K30 



LABEL BYTE 

82,79,80,81,75 
76,77,71,72,73 



ALT + (A - Z) 

- -- SUPER SHIFT - 



; 10 NUMBERS ON KEYPAD 
EXTENDED ASCII CODES 



0A91 10 11 12 13 14 15 DB 

16 17 

0A99 18 19 IE IF 20 21 DB 

22 23 

0AA1 24 25 26 2C 2D 2E DB 

2F 30 

0AA9 31 32 DB 



16,17,18,19,20,21,22,23 ; A-Z TYPEWRITER CHARS 

24,25,30,31,32,33,34,35 

36,37,38,44,45,46,47,48 

49,50 



k-*** ************************************************ *************** 

KEY TRANSLATION TABLE - INTERNAL SCAN CODES TO PCI SCAN CODES WHILE 
THE KEYPAD STATE IS ACTIVE (KEY PAD SCAN CODES). 



*************************** 



*************** 



TABLE CONTAINS INTERNAL AND PCI SCAN CODE PAIRS. HIGH BYTE IS INTNL 
SCAN CODE AND THE LOW BYTE IS THE PCI EQUIVALENT. 

OAAB KBPAD.TBL LABEL WORD 

OAAB 1847 1948 1A49 1C4A DW 1847H, 1948H, 1A49H, 1C4AH, 1D4EH,284BH,294CH,2A4DH 

1D4E 284B 294C 2A4D 

OABB 384F 3950 3A51 4852 DW 384FH,3950H,3A51H,4852H,4A53H,4B35H,4E37H 

4A53 4B35 4E37 
= 001E KBPADL EQU $-KBPAD_TBL 



************** 



************************* 



KEY TRANSLATION TABLE - INTERNAL SCAN CODES TO PCI SCAN CODES WHILE 
THE FUNCTION KEY IS HELD, 
t****************************************************************** 

FIRST 6 ENTRIES OF THIS TABLE CONTAIN INTNL AND PCI SCAN CODE PAIRS. 
HIGH BYTE IS THE INTERNAL SCAN CODE AND THE LOW BYTE IS THE PCI 
EQUIVALENT. ENTRIES 5-8 CONTAIN INTERNAL SCAN CODES AND THEIR STATE 
BIT IN KB_NMI_CNTL. HIGH BYTE IS THE INTERNAL SCAN CODE AND LOW BYTE 
CONTAINS STATE BIT FOR KEYPAD STATE, CLICKER STATE, AND AUDIO STATE 
change made for speaker from Fn+A to Fn+Scrol l_Lock 
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0AC9 KBFUN.TBL LABEL WORD 

0AC9 5B47 5C49 5F4F 5E51 DW 5B47H,5C49H,5F4FH,5E51H,0257H,0358H 

0257 0358 
0AD5 0108 0C04 3102 0D01 DW 0108H,0C04H,3102H,0D01H 
= 0014 KBFUNL EQU $-KBFUN_TBL 



■A-********************************* 



****************************** 



OADD 












- 


OADD 


FF 
3F 


81 
40 


BB 


BC 


3D 


3E 


0AE5 


41 
52 


42 
53 


43 


44 


C5 


C6 


OAED 


FF 
06 


29 
07 


02 


03 


04 


05 


0AF5 


88 

2B 


89 
OE 


8A 


OB 


8C 


8D 


OAFD 


FF 
14 


OF 
15 


10 


11 


12 


13 


0B05 


96 

FF 


97 
FF 


98 


19 


1A 


IB 


OBOD 


FF 
22 


BA 
23 


IE 


IF 


20 


21 


0B15 


A4 
1C 


A5 
FF 


A6 


27 


28 


2B 


0B1D 


FF 
30 


2A 
31 


2C 


2D 


2E 


2F 


0B25 


B2 
B7 


33 
FF 


B4 


B5 


36 


FF 


0B2D 


FF 
39 


ID 
FF 


D2 


38 


56 


FF 


0B35 


FF 
DO 


FF 
CD 


38 


CB 


C8 


FF 



KEY TRANSLATION TABLE 

TABLE DISPLACEMENT 52H IS THE FUNCTION KEY AND IS SET TO 52H. 

THIS WILL ALLOW TESTING OF THE FUNCTION KEY EVEN THOUGH IT DOES 

NOT HAVE A PCI SCAN CODE EQUIVALENT, 
change made for bksp and \ change 

EXPLANATION 

Each entry is the P60 make scan code for the NMI scan code 
corresponding to this position. 

P60 sc = OFFH - means no such NMI scan code 

P60 sc > 080H - means the key may be a FN+key or Keypad key. 

P60 sc < 080H - means the key is a base key 

t*****************************************^ 

TABLE OF INTERNAL SCAN CODES TO PCI SCAN CODES 

KBNMI_TBL LABEL BYTE 

DB 0FFH,081H,0BBH,0BCH,03DH,03EH,03FH,040H 

DB 041H,042H,043H,044H,0C5H,0C6H,052H,053H 

DB 0FFH,029H,002H,003H,004H,005H,006H,007H 

DB 088H,089H,08AH 5 00BH,08CH,08DH,02BH,00EH 

DB 0FFH,00FH,010H,011H,012H,013H,014H,015H 

DB 096H,097H,098H,019H,01AH,01BH, OFFH, OFFH 

DB 0FFH,0BAH,01EH,01FH,020H,021H,022H,023H 

DB 0A4H,0A5H,0A6H,027H,028H,02BH,01CH,0FFH 

DB 0FFH,02AH,02CH,02DH,02EH,02FH,030H,031H 

DB 0B2H,033H,0B4H,0B5H,036H, OFFH, 0B7H, OFFH 

DB OFFH, 01DH,0D2H,038H,056H, OFFH, 039H, OFFH 

DB OFFH, OFFH, 038H,0CBH,0C8H, OFFH, ODOH,OCDH 
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Error Message Routine (SYS-CHK) 



****************** 



r*********************************************** 



ROUTINE-NAME 



SYS_CHK 



FUNCTION: THIS ROUTINE DSPLYS ERROR MESSAGES ACCORDING TO FLAGS SET 
IN THE RTC_DIAG_STAT SAVE AREA. ONCE THE FLAG HAS BEEN FOUND 
IT IS CLEARED IF AN ASSOCIATED ERROR CODE IS PRESENT. 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: DISPLAY ERROR MESSAGES 
INPUT CONDITIONS: DS:DATA 
RESTRICTIONS: NONE 



EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: 



RETURN 



ERROR EXIT CONDITIONS: NON FATAL ERROR RETURN CODE WITH ERROR CODE 
IF ASSOCIATED BIT SET. RE_DISPATCH FLAG SET 
IF ALL BITS IN RTC_DIAG_STAT NOT YET CHECKED. 



REGISTERS MODIFIED: 



AX,BX,CX,DX 



********* 



************************************************* 



OB3D 




ERROR_TABLE LABEL WORD 




OB3D 


40 73 


DB 


BAD_RTC_SIG,73H 


RTC SIGNATURE BAD 


0B3F 


20 71 


DB 


BAD_ST0R_CKSUM,71H 


STG CHECKSUM BAD ON RESUME 


0B41 


10 75 


DB 


LCD_ALT_FAILED,75H 


ALTERNATE LCD MODE FAILED 


0B43 




SYS_CHK 


PROC NEAR 




0B43 


B4 OE 


MOV 


AH,RTC_DIAG_STAT 




0B45 


E8 07AA R 


CALL 


GET_RTC_REG 




0B48 


B9 0003 


MOV 


CX,3 


THREE ENTRIES IN TABLE 


0B4B 


BE 0B3D R 


MOV 


SI, OFFSET ERROR_TABLI 




0B4E 




SYS_LP: 






0B4E 


2E: 84 04 


TEST 


AL,BYTE PTR CS: [SI] 


CHECK FOR BIT ON 


0B51 


75 OA 


JNZ 


SYS_ERR 




0B53 


83 C6 02 


ADD 


SI, 2 




0B56 


E2 F6 


LOOP 


SYSJ.P 




0B58 


2B CO 


SUB 


AX, AX 


CLEAR ERROR CODE 


0B5A 


EB OD 90 


JMP 


SYS_EXIT 








ERROR MATCH FOUND SO CHECK FOR ERROR CODE 


0B5D 




SYS_ERR: 






0B5D 


2E: 8B 1C 


MOV 


BX,WORD PTR CS: [SI] 


GET CODE FROM TABLE 


0B60 


32 C3 


XOR 


AL,BL 


RESET ERROR BIT 


0B62 


E8 07C8 R 


CALL 


PUT_RTC_REG 


SAVE IN RTC_DIAG STAT 


OB65 


B4 50 


MOV 


AH,NON_FATAL_ERR+RE_[ 


HSPATCH ; SET ERR AND REDISP 


OB67 


8A C7 


MOV 


AL,BH 




; SET 


ERROR CODE 


FROM TABLE 






0B69 




SYS_EXIT 






0B69 


C3 


RET 






0B6A 




SYS_CHK 


EN DP 
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Resume Error Check (RES-ERR-CHK) 



r******************************************************************** 

ROUTINE-NAME : RES_ERR_CHK 

FUNCTION: THIS ROUTINE CHKS AND DSPLYS ANY ERROR MESGS ASSOCIATED 

WITH OPERATOR CAUSED RESUME ERRORS. THIS IS DONE AT BOOT TIME 

AFTER AN ABORTED RESUME. 
ENTRY CONDITIONS: 

PURPOSE OF ENTRY: DISPLAY ERROR MESSAGES 

INPUT CONDITIONS: DS:DATA 

RESTRICTIONS: NONE 



EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: 



RETURN WITH ZERO FLAG SET 



ERROR EXIT CONDITIONS: ERROR NO. IS DISPLAYED ON ROW XX COLUMN XX 
OF THE SCREEN AND THAT ERROR FLAG IS RESET 
RETURN IS MADE WITH ZERO FLAG RESET 



0B6A 




0B6A 


02 70 


0B6C 


01 72 


0B6E 


08 74 


0B70 




0B70 


BA 0632 


0B73 




OB73 


B4 OE 


OB75 


E8 07AA R 


0B78 


B9 0003 


0B7B 


BE 0B6A R 


OB7E 




OB7E 


2E: 84 04 


0B81 


75 OB 


0B83 


83 C6 02 


0B86 


E2 F6 


0B88 


80 FE 06 


0B8B 


EB 2C 90 


0B8E 




0B8E 


2E: 8B 1C 


0B91 


32 C3 


0B93 


E8 07C8 R 


0B96 


B8 R 


0B99 


8E CO 


0B9B 


52 


0B9C 


B6 01 


0B9E 


8A D7 


OBAO 


BF 0009 R 


0BA3 


E8 0275 R 


0BA6 


5A 


OBA7 


BB 0007 


OBAA 


B9 0004 


OBAD 


BD OOOA R 


OBBO 


B8 1300 


0BB3 


CD 10 


0BB5 


FE C6 



REGISTERS MODIFIED: AX,BX,CX,DX,ES,SI ,DI ,BP 
****************************************************** 

ERR2_TABLE LABEL WORD 

DB LCD_N0T_ACTIVE,70H 

DB DSKT_ACTIVE,72H 

DB LCD_CHANGE,74H 



********* 



RES_£RR_CHK PROC NEAR 


MOV 


DX,0632H 


RES_LPO: 




MOV 


AH,RTCJHAG_STAT 


CALL 


GET_RTC_REG 


MOV 


CX,3 


MOV 


SI, OFFSET ERR2_TABLE 


RES_LP: 




TEST 


AL,BYTE PTR CS: [SI] 


JNZ 


RES_ERR 


ADD 


SI, 2 


LOOP 


RES_LP 


CMP 


DH,06 


JMP 


RES_EXIT 



SET ROW = 6 C0LUMN=50 FOR MSG 
GET THE ERROR FLAGS FROM RTC 
THREE ENTRIES IN TABLE 



SAME ROW AS STARTED ON? 

IF SO NO ERRORS" A Z FLAG SET 

ELSE ERROR & Z FLAG CLEARED 



ERROR MATCH FOUND SO CHECK FOR ERROR CODE 



RES ERR* 

MOV ' BX,WORD PTR CS: [SI] 

XOR AL,BL 

CALL PUT_RTCJREG 

ASSUME ES:XXDATA 



GET CODE FROM TABLE 

RESET ERROR BIT 

SAVE IN RTC_DIAG STAT 



MOV 


AX,XXDATA 






MOV 


ES,AX 






PUSH 


DX 




SAVE COORDINATES .. 


MOV 


DH,01 




SET HIGH BYTE OF ERROR CODE 


MOV 


DL , BH 




SET ERROR CODE FROM TABLE 


MOV 


DI.OFFSET 


TEMP 


POINT TO MESSAGE SAVE AREA 


CALL 


STR_CON 




CONVERT CODE TO ASCII 


POP 


DX 




RESTORE COORDINATES 


MOV 


BX,0007H 




SET ATTRIBUTE AND PAGE 


MOV 


CX,4 




SET STRING LENGTH 


MOV 


BP, OFFSET 


TEM'P+1 


GET ADDRESS OF STRING 


MOV 


AX,1300H 




SET WRITE STRING REQUEST 


INT 


10H 




DISPLAY ERROR CODE 


INC 


DH 




POINT TO NEXT ROW 
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0BB7 


EB BA 


JMP SHORT R 


ES_LPO 


0BB9 




RES_EXIT: 




0BB9 


C3 


RET 




OBBA 




RES_ERR_CHK ENDP 





; GO LOOK FOR MORE ERRORS 



Diskette I/O Entry (DISKETTE-IO) 



******************************** 



******************** 



DISKETTE I/O ENTRY POINT 
********************************************* 



;0RG 


0EC59H 


OC59 


ORG 00C59H 


= 0C59 


DISKETTE_IO EQU 


0C59 E9 0000 E 


JMP DSKT_IO 



Icon and Error Message Routine 
(E_MSG) 



0C5C 



0C5C IE 
0C5D 06 



************************************ 



*************************** 



ROUTINE-NAME : E_MSG 

FUNCTION: THIS ROUTINE DISPLAYS ICONS AND ERROR MESSAGES FOR POST 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: TO DISPLAY A POST ICON AND/OR ERROR MESSAGE 
INPUT CONDITIONS: AX = ERROR CODE ; IF AH = THEN NO ERROR 

CODE , ONLY AN ICON 
ES:DI = POINTS TO AN ADDITIONAL ASCII ERROR 

MESSAGE. IF DI =0 THEN NO MESSAGE 
CL = ICON NUMBER TO DISPLAY 

RESTRICTIONS: NONE 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: 

ERROR EXIT CONDITIONS: 

REGISTERS MODIFIED: AX,BX,CX,DX,BP,DI ,SI 
INTERNALLY REFERENCED ROUTINES: NONE 
EXTERNALLY REFERENCED ROUTINES: STR_CON 
*********************************************** 



************** 



ASSUME CS:ROMCODE 
ASSUME DS:XXDATA 
ASSUME ES:NOTHING 



E^MSG PROC 



NEAR 



PUSH 
PUSH 



DS 
ES 



SAVE SEGMENT REGS 
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0C5E 


57 


PUSH 




DI 




; SAVE PTR TO ASCII ERRO 


0C5F 


06 


PUSH 




ES 






0C60 


50 


PUSH 




AX 




; SAVE ERROR CODE 


0C61 


0E 


PUSH 




CS 






0C62 


07 


POP 




ES 




; POINT ES TO CODE SEGME 


0C63 


B8 


R MOV 




AX,XXDATA 




; SET DS TO XXDATA SEGME 


0C66 


8E 


D8 MOV 




DS,AX 






0C68 


B5 


00 MOV 




CH,0 




; CLEAR CH 






; CHECK FOR NEED 


TO 


DISPLAY ICON 


AND DO 


SO IF NECESSARY 


0C6A 


8B 


F9 * EMIO: 


MOV DI.CX 




; SAVE ICON NUMBER 


0C6C 


Dl 


E7 SHL 




DI,1 




; MULTIPLY BY 2 


0C6E 


2E 


8B AD 0249 R MOV 




BP,ICON_ADR[DI] 


; BP POINTS TO ICON DATA 


0C73 


8B 


F9 MOV 




DI,CX 






0C75 


83 


FF 06 CMP 




DI,6 




; Fl ICON 


0C78 


75 


52 JNE 




EM15 







DISPLAY Fl ICON AND WAIT FOR Fl TO BE PRESSED IF SYS UNIT DISPLAYED 
OTHERWISE WAIT 10 SECONDS AND THEN RETURN 



0C7A 


80 


3E 002 


3 R 00 CMP 




ICONJDIS+1 





SYSTEM UNIT DISPLAYED? 


0C7F 


74 


29 


JE 




EM13 




JUMP IF NO SYSTEM UNIT 


0C81 


BA 


1200 


MOV 




DX,01200H 




DX POINTS TO DSPLY POSITION 


0C84 


E8 


0D5F R 


CALL 




ICON.PR 




DISPLAY Fl ICON 








KEYSTROKE FOUND SO CHECK FOR 


CORRECT KEYS 


0C87 






EMU: 










0C87 


B4 


00 


MOV 




AH,0 




SET GET KEYSTROKE FN CODE 


0C89 


CD 


16 


INT 




16H 




GET A KEYSTROKE 


0C8B 


80 


FC 3B 


CMP 




AH,03BH 




Fl KEY? 


0C8E 


74 


11 


JE 




EM12 




YES THEN WAIT FOR REL OF KEY 


0C90 


3C 


OC 


CMP 




AL.OOCH 




CTL+L FOR LOOP MODE? 


0C92 


75 


F3 


JNE 




EMU 




NO LOOK FOR NEXT KEY SEQ 








ASSUME 


DS:DATA 






0C94 


B8 


R 


MOV 




AX, DATA 




SETUP DATA SEGMENT 


0C97 


8E 


D8 


MOV 




DS,AX 






0C99 


C7 


06 0072 


I R ABCD MOV 




RESET_FLAG 


L00P_M0DE 


; SET POST LOOP MODE 


0C9F 


EB 


25 


JMP 
WAIT FOR BREAK 


OF 


SHORT EM14 
Fl KEY 




EXIT 


0CA1 


FB 




EM12: 


STI 




ENABLE INTERRUPTS 


0CA2 


E4 


60 


IN 




AL,KB_DATA 




READ KEYBOARD PORT 


0CA4 


3C 


3B 


CMP 




AL.03BH 




CHECK FOR STILL Fl KEY 


0CA6 


74 


F9 


JE 




EM12 




WAIT UNTIL NOT Fl KEY MAKE 


0CA8 


EB 


1C 


JMP 




SHORT EM14 




EXIT IF Fl KEY RELEASED 








NO SYSTEM UNIT 


SO 


ONLY WAIT 10 SECONDS 


OR UNTIL KEY HIT 


OCAA 






EM13: 










OCAA 


BA 


0060 


MOV 




DX,KB_DATA 




KEYBOARD PORT 


OCAD 


EC 




IN 




AL,DX 






OCAE 


8A 


F8 


MOV 




BH,AL 




GET PRESENT PORT 60 VALUE 


OCBO 


B3 


B5 


MOV 




BL,0B5H 




SET TIMEOUT TO 10 SECONDS 


0CB2 


BO 


12 


MOV 




AL,12H 




COMPARE RETURN NOT EQUAL 
USING BH AND PORT READ (DX) 


0CB4 


B4 


41 


MOV 




AH,41H 




WAIT ON EXTERNAL EVENT 


0CB6 


CD 


15 


INT 




15H 




WILL RETURN AFTER 10 SECS 


0CB8 


72 


OC 


JC 




EM14 




IF TIMEOUT THEN JUMP 


OCBA 






EM13_1: 










OCBA 


B4 


01 


MOV 




AH,1 




CHECK FOR KEY IN BUFFER 


OCBC 


CD 


16 


INT 




16H 






OCBE 


74 


06 


JZ 




EM14 




JUMP IF NO KEY IN BUFFER 


OCCO 


B4 


00 


MOV 




AH,0 






0CC2 


CD 


16 


INT 




16H 




OTHERWISE PURGE THE KEY 


0CC4 


EB 


F4 


JMP 




SHORT EM13. 


.1 


LOOP UNTIL NO MORE KEYS 
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Fl WAIT COMPLETED SO EXIT 




0CC6 






EM14: 






0CC6 


83 C4 06 




ADD 


SP,6 


BALANCE STACK 


0CC9 


E9 0D5C R 




JMP 


EMSG_RET 


EXIT WHEN PRESSED 






NOT REQUEST TO 


DISPLAY Fl PROMPT 










ASSUME DS:XXDATA 




OCCC 


8A 8D 002/! 


R 


EM15: 


MOV CL,ICON_DIS[DI- 


; MOVE DSPLY SQUARE NO. TO SI 


OCDO 


80 F9 00 




CMP 


CL,0 


HAS ICON BEEN DISPLAYED? 


OCD3 


8B Fl 




MOV 


SI.CX 


SAVE DISPLAY SQUARE NO. 


0CD5 


75 1A 




JNE 


EM20 




0CD7 


8A OE 002A R 


MOV 


CL,ICON_DIS[0] 


GET NO. ICONS ALREADY DSPLYD 


OCDB 


FE CI 




INC 


CL 




OCDD 


88 8D 002A R 


MOV 


ICON_DIS[DI],CL 


STORE DSPLY SQUARE WITH ICON 


OCE1 


88 OE 002A R 


MOV 


ICON_DIS[0],CL 


SAVE NO. OF ICONS DISPLAYED 


OCE5 


8B Fl 




MOV 


SI,CX 


SAVE DISPLAY SQUARE 


0CE7 


2E: 8A 94 


0078 R 


MOV 


DL,DIS_POS[SI] 


GET COL NUMBER FOR DISPLAY 


OCEC 


B6 00 




MOV 


DH,0 


PUT ROW NUMBER IN DH 


OCEE 


E8 0D5F R 




CALL 


ICON_PR 


DISPLAY ICON 






CONVERT AND DISPLAY ERROR MESSAGE IN AX IF REQUIRED 


OCF1 


58 




EM20: 


POP AX 


RESTORE ERROR CODE 


OCF2 


OA E4 




OR 


AH, AH 


ERROR MESSAGE? 


0CF4 


74 3C 




JZ 


EM30 




0CF6 


57 




PUSH 


DI 


SAVE ICON NUMBER 


OCF7 


8B DO 




MOV 


DX,AX 


MOVE ERROR CODE 


0CF9 


B8 R 




MOV 


AX,XXDATA 




OCFC 


8E CO 




MOV 


ES,AX 


ES POINTS TO XXDATA 


OCFE 


BF 0009 R 




MOV 


DI, OFFSET TEMP 


POINTER FOR CONVERSION RTNE 


ODOl 


E8 0275 R 




CALL 


STR_CON 


CONVERT ERROR CODE TO ASCII 


0D04 


5F 




POP 


DI 


RESTORE ICON NUMBER 


OD05 


8A 9D 0031 


R 


MOV 


BL,ICON_MSG[DI] 


GET NO. OF MSGD UNDER ICON 


0D09 


FE 85 0031 


R 


INC 


ICON_MSG[DI] 


INCREMENT NO. OF MESSAGES 


ODOD 


2E: 8A 94 


0078 R 


MOV 


DL,DIS_POS[SI] 


GET SCREEN POSITION 


0D12 


80 C2 08 




ADD 


DL,8 


CENTER MESSAGE 


OD15 


83 FF 02 




CMP 


DI ,2 


FEATURE ICON? 


0D18 


75 03 




JNE 


EM25 




ODIA 


80 EA 04 




SUB 


DL,4 


ADJ DSPLY POS FOR FEAT ICON 


ODID 


B6 09 




EM25: 


MOV DH,9 


FIRST MESSAGE GOES AT ROW 9 


ODIF 


02 F3 




ADD 


DH,BL 


ERROR MSG. IS 1 ROW BELOW 
PREVIOUS ONE 


0D21 


B9 0004 




MOV 


CX,4 


LENGTH OF STRING IS 4 CHARS 


0D24 


BD OOOA R 




MOV 


BP, OFFSET TEMP+1 


POINT TO ASCII ERROR CODE 


OD27 


B4 OF 




MOV 


AH, 15 




OD29 


CD 10 




INT 


10H 


GET CURRENT PAGE NUMBER 


0D2B 


B3 07 




MOV 


BL,07H 


NORMAL ATTRIBUTES 


OD2D 


B8 1300 




MOV 


AX,01300H 


WRITE STRING FOR INT 10 


0D30 


CD 10 




INT 


10H 


DISPLAY ERROR MESSAGE 






DISPLAY 


ASCII 


MESSAGE IF NECESSARY 




OD32 


07 




EM30: 


POP ES 




0D33 


5B 




POP 


BX 


GET ASCII ERROR MSG POINTER 


0D34 


OB DB 




OR 


BX,BX 


ASCII ERROR MESSAGE 


0D36 


74 24 




JE 


EMSG_RET 








SCAN TC 


GET LENGTH 




0D38 


8B EB 




MOV 


BP,BX 


POINT TO MESSAGE FOR INT 10 


0D3A 


43 




EM35: 


INC BX 


INC POINTER 


0D3B 


26: 80 3F 


04 


CMP 


BYTE PTR ES:[BX],04H 


; END OF MESSAGE ? 


0D3F 


75 F9 




JNE 


EM35 


IF NOT END LOOK AT NEXT BYTE 


0D41 


2B DD 




EM40: 


SUB BX,BP 




0D43 


8B CB 




MOV 


CX,BX 


LENGTH OF STRING FOR INT 10 


0D45 


2E: 8A 94 


0078 R 


MOV 


DL,DIS_POS[SI] 


GET COLUMN FOR DISPLAY 


0D4A 


80 C2 OC 




ADD 


DL,12 


MOVE OVER 9 COLUMNS 
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0D4D 


83 


FF 


02 


CMP 


DI,2 


FEATURE ICON? 


0D50 


75 


03 




JNE 


EM45 


NO THEN DONT COLUMN CORRECT 


0D52 


80 


EA 


04 


SUB 


DL,4 


MOVE BACK 4 COLUMNS 


0D55 








EM45: 






0D55 


B3 


07 




MOV 


BL,07H 


SET NORMAL ATTRIBUTE 


0D57 


B8 


1300 


MOV 


AX,01300H 


WRITE STRING FOR INT 10 


0D5A 


CD 


10 




INT 


10H 


DSIPLAY ERROR MESSAGE 


0D5C 








EMSG_RET 






0D5C 


07 






POP 


ES 


RESTORE SEGMENT REGS 


0D5D 


IF 






POP 


DS 




0D5E 


C3 






RET 




RETURN TO CALLER 


0D5F 








E_MSG 


ENDP 
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Icon Display Routine (ICON-PR) 



****************************************************************** 

ROUTINE-NAME : IC0N_PR 

FUNCTION: THIS ROUTINE DISPLAYS ICONS ON THE SCREEN 



ENTRY CONDITIONS: 

PURPOSE OF ENTRY: TO DISPLAY AN ICON 

INPUT CONDITIONS: DH = ROW NUMBER TO DISPALY ICON 

DL = COLUMN NUMBER TO DISPLAY ICON 
ES:BP POINTS TO THE DATA TO DISPLAY 

ICON FORMAT: DB ROW OFFSET, COLUMN OFFSET, WIDTH, DEPTH 

DB ASCII DATA BYTES FOR ICON AND CONTROL CODES 



CONTROL CODES: 
01 XX YY 



02 XX YY 



04 XX YY 11 



REPEAT CHARACTER 

XX= NUMBER OF TIMES TO REPEAT CHARACTER 

YY= CHARACTER TO REPEAT 

DISPLAY CHARACTER WITH ATTRIBUTE 

XX= ATTRIBUTE AS DEFINED BY PC 

YY= CHARACTER 

NEXT ROW 

NEXT BYTE WILL BE DISPLAYED ONE ROW DOWN 
. : REPEAT THE FOLLOWING ROW 

XX= NUMBER OF TIMES TO REPEAT THE ROW 
YY 11... = DATA FOR THE ROW TO REPEAT 



0000 00 

0001 00 

0002 00 



05 XX YY STR .. : REPEAT STRING FUNCTION 

WHERE 

XX = THE NO. OF TIMES TO REPEAT STRING 

YY = THE LENGTH OF THE STRING 

STR.. = THE STRING TO REPEAT 

THE STRING MUST NOT CONTAIN ANY REPEAT CHARACTER 

CONTROL CODES 

06 XX YY 11 STR.. : REPEAT STRING WITH COMMON ATTRIBUTE 

WHERE 

XX = THE NUMBER OF TIMES TO REPEAT THE STRING 

YY = THE LENGTH OF THE STRING 

11 = THE ATTRIBUTE FOR THE ENTIRE STRING 

STR.. = THE STRING TO REPEAT 



RESTRICTIONS: CONTROL CODE TO REPEAT A CHARACTER MUST NOT REPEAT 
THE CHARACTER PAST THE RIGHT MARGIN OF THE ICON. 
THE CONTROL CODE TO REPEAT A ROW MUST NOT REPEAT 
THE ROW PAST THE BOTTOM OF THE ICON. 
REPEAT CODES CANNOT BE IMBEDDED IN STRINGS TO BE 
REPEATED. 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: 

ERROR EXIT CONDITIONS: 

REGISTERS MODIFIED: NONE 
INTERNALLY REFERENCED ROUTINES: NONE 
EXTERNALLY REFERENCED ROUTINES: 

r ***************************************** ************************ 

ICON_PL STRUC ; defines resrvd area on stack 

STR_ROW DB 

STR_COL DB 

MAX_ROW DB 
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0003 


00 






MAX_COL 


DB 


0004 


00 






REPR_ 


_N0 


DB 


0005 


00 






RSTR_ 


_N0 


DB 


0006 








ICON. 


.PL 


ENDS 










ASSUME 


CS:R0MC0DE 










ASSUME 


DS: NOTHING 










ASSUME 


ES:NOTHING 


0D5F 








ICON_PR 


PROC NEAR 










SAVE 






0D5F 


50 






PUSH 




AX 


0D60 


53 






PUSH 




BX 


0D61 


51 






PUSH 




CX 


0D62 


52 






PUSH 




DX 


0D63 


55 






PUSH 




BP 


0D64 


56 






PUSH 




SI 


0D65 


57 






PUSH 




DI 


0D66 


06 






PUSH 




ES 


0D67 


IE 






PUSH 




DS 


0D68 


83 EC 


06 




SUB 




SP,6 ; 


0D6B 


8B F4 






MOV 




SI,SP ; 


0D6D 


16 






PUSH 




SS ; 


0D6E 


IF 






POP 




DS 


0D6F 


B7 00 






MOV 




BH,0 ; 


0D71 


B4 01 






MOV 




AH, 01 ; 


0D73 


B5 20 






MOV 




CH,20H 


0D75 


CD 10 






INT 




10H 


0D77 


B3 07 






MOV 




BL,07H ; 


0D79 


B5 00 






MOV 




CH,0 ; 


0D7B 


8B F9 






MOV 




DI,CX ; 


0D7D 


Dl E7 






SHL 




DI ,1 ; 


0D7F 


26: 8A 


66 


00 


MOV 




AH,ES:[BP] ; 


0D83 


02 F4 






ADD 




DH,AH ; 


0D85 


88 34 






MOV 




[SI].STR_ROW,DH ; 


0D87 


45 






INC 




BP 


0D88 


26: 8A 


46 


00 


MOV 




AL,ES:[BP] ; 


0D8C 


02 DO 






ADD 




DL,AL ; 


0D8E 


88 54 


01 




MOV 




[SI].STR_COL,DL ; 


0D91 


45 






INC 




BP ; 


0D92 


26: 8A 


46 


00 


MOV 




AL,ES:[BP] ; 


0D96 


02 C2 






ADD 




AL,DL ; 


0D98 


88 44 


03 




MOV 




[SI]\MAX_COL,AL ; 


0D9B 


45 






INC 




BP ; 


0D9C 


26: 8A 


66 


00 


MOV 




AH,ES:[BP] ; 


0DA0 


02 E6 






ADD 




AH,DH ; 


0DA2 


88 64 


02 




MOV 




[SI].MAX_ROW,AH ; 


0DA5 


C6 44 


04 


30 


MOV 




[SI].REPR_NO,0 ; 


0DA9 


C6 44 


05 


30 


MOV 




[SI].RSTR_NO,0 








! WRITE 


STRING LOOP 




ODAD 


45 






IPR20: 


INC BP ; 


ODAE 


B9 0001 




MOV 




CX,1 ; 


0DB1 


3A 54 


03 




CMP 




DL,[SI].MAX_COL ; 


0DB4 


7C 1A 






JL 




IPR23 ; 


0DB6 


8A 54 


01 




MOV 




DL,[SI].STR_COL ; 


0DB9 


FE C6 






INC 




DH ; 


ODBB 


3A 74 


02 




CMP 




DH,[SI].MAX_ROW ; 


ODBE 


7C 03 






JL 




IPR22 


ODCO 


E9 0EB9 R 




JMP 




IPR_RET ; 


0DC3 


FE 4C 


04 




IPR22: 


DEC [SI].REPR_NO ; 


0DC6 


80 7C 


04 


30 


CMP 




[SI].REPR_NO,0 


ODCA 


7E 04 






JLE 




IPR23 ; 


ODCC 


8B EF 






MOV 




BP,DI ; 


ODCE 


EB DD 






JMP 




IPR20 ; 


ODDO 


26: 8/S 


46 


00 


IPR23: 


MOV AL,ES:[BP] ; 


0DD4 


3C 07 






CMP 




AL,7 


0DD6 


72 12 






JB 




IPR_CNT ; 


0DD8 








IPR30: 






0DD8 


B4 02 






MOV 




AH, 02 ; 


ODDA 


CD 10 






INT 




10H 



MAKE ROOM FOR TEMP PARMS 
POINT SI TO TEMPORARY AREA 
SET DS TO STACK SEGMENT 

SET CURRENT DISPLAY PAGE 
TURN OFF CURSOR 



SET NORMAL ATTRIBUTES 

INIT CH TO 

MOVE ICON NO. TO DI 

MULTIPLY BY 2 

MOVE ROW OFFSET OF ICON TO AH 

ADD TO OFFSET SENT BY CALLER 

SAVE STARTING ROW 

POINT TO NEXT LOCATION 

MOVE COLUMN OFFSET OF ICON TO AL 

ADD TO OFFSET SENT BY CALLER 

SAVE STARTING COLUMN 

POINT TO NEXT LOCATION 

MOVE WIDTH OF ICON TO AL 

GET MAX. TOTAL COLUMN NUMBER 

SAVE MAXIMUM COLUMN NO. 

POINT TO NEXT LOCATION 

MOVE DEPTH OF ICON TO AL 

ADD TO OFFSET SENT BY CALLER 

SAVE MAXIMUM ROW NUMBER 

CLEAR LINE REPEAT COUNTER 



POINT TO NEXT LOCATION 

LENGTH OF STRING IS 1 

IS POINTER PAST MAX COLUMN 

JUMP IF NOT 

POINT TO 1ST POS OF NEXT ROW 

POINT TO NEXT ROW 

ARE WE PAST THE LAST ROW? 

RETURN TO CALLER 

DEC NO. OF ROWS TO REPEAT 

JUMP IF NO REPEAT ROWS 
POINT BEG OF ROW TO REPEAT 
CONTINUE 

GET NEXT BYTE OF DATA 

JUMP IF CONTROL CHARACTER 

POSITON CURSOR 
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ODDC 


B3 07 






MOV 


BL,07H 


NORMAL ATTRIBUTES 


ODDE 


26: 8A 


46 


00 


MOV 


AL,ES:[BP] 




0DE2 


B4 09 






IPR40: 


MOV AH, 09 


WRITE AT CURSOR 


0DE4 


CD 10 






INT 


10H 


DISPLAY CHARACTER 


0DE6 


FE C2 






INC 


DL 


POINT TO THE NEXT COLUMN 


0DE8 


EB C3 






JMP 


IPR20 


LOOP UNTIL LAST CHARACTER 


ODEA 








IPR_CNT: 






ODEA 


3C 01 






CMP 


AL,1 


REPEAT CHARACTER FUNCTION 


ODEC 


74 13 






JE 


IPR_REP 




ODEE 


3C 02 






CMP 


AL,2 


ATTRIBUTE OTHER THAN NORMAL 


ODFO 


74 2F 






JE 


IPR_ATT 




0DF2 


3C 03 






CMP 


AL,3 


NEXT ROW 


0DF4 


74 33 






JE 


IPR_NXRW 




0DF6 


3C 04 






CMP 


AL,4 


REPEAT ROW FUNCTION 


0DF8 


74 47 






JE 


IPR_REPR 




ODFA 


3C 05 






CMP 


AL,5 


REPEAT STRING 


ODFC 


74 50 






JE 


IPR_REPS 




ODFE 


E9 0E90 R 




JMP 


IPR_RSTA 


REPEAT STRING WITH ATTRIBUTE 


OEOl 








IPR_REP: 






OEOl 


45 






INC 


BP 


INC POINTER 


OE02 


26: 8A 


4E 


00 


MOV 


CL,ES:[BP] 


GET MODIFIER FOR REPITITIONS 


0E06 


45 






INC 


BP 


INC POINTER 


0E07 


26: 8A 


46 


00 


MOV 


AL,ES:[BP] 


GET CHARACTER TO DISPLAY 


OEOB 


3C 05 






CMP 


AL,5 


CHECK FOR ATTRIBUTE FUNCTION 


OEOD 


72 12 






JB 


IPR_ATT 




OEOF 


B4 02 






REPIO: 


MOV AH, 02 


PSN CURSOR MODE FOR INT 10 


OE11 


CD 10 






INT 


10H 


POSITION CURSOR 


0E13 


26: 8A 


46 


00 


MOV 


AL,ES:[BP] 




0E17 


B4 09 






MOV 


AH,09H 


WRITE CHAR/ATT AT CURSOR 


0E19 


CD 10 






INT 


10H 


DISPLAY 


OE1B 


02 Dl 






ADD 


DL,CL 


ADD REPITIONS TO POSTION PTR 


OE1D 


B3 07 






MOV 


BL,07H 


RETURN ATTRIBUTE TO NORMAL 


OE1F 


EB 8C 






JMP 


IPR20 


CONTINUE 


0E21 








IPR_ATT: 






0E21 


45 






INC 


BP 


POINT TO NEXT BYTE 


OE22 


26: 8A 


5E 


00 


MOV 


BL,ES: [BP] 


STORE ATTRIBUTE IN BL 


0E26 


45 






INC 


BP 




0E27 


EB E6 






JMP 


REPIO 


CONTINUE 


0E29 








IPR_NXRW 






0E29 


FE C6 






INC 


DH 


INCREMEMT ROW POINTER 


0E2B 


8A 54 01 




MOV 


DL,[SI].STR_COL 


START AT RIGHT MARGIN 


0E2E 


FE 4C 04 




DEC 


[SI].REPR_NO 


DEC NO. OF ROWS TO REPEAT 


0E31 


80 7C 04 00 


CMP 


[SI].REPR_NO,0 




0E35 


7C 02 






JL 


NX10 


JUMP IF NO REPEAT ROWS 


0E37 


8B EF 






MOV 


BP,DI 


POINT BEG OF ROW TO REPEAT 


0E39 


3A 74 02 




NX10: 


CMP DH,[SI].MAX_R0W 


; ARE WE PAST THE LAST ROW? 


0E3C 


7D 7B 






JGE 


IPR_RET 


RETURN TO CALLER 


0E3E 


E9 ODAD R 




JMP 


IPR20 


CONTINUE 


0E41 








IPR_REPR 






0E41 


45 






INC 


BP 


INC POINTER 


0E42 


26: 8A 


46 


00 


MOV 


AL,ES:[BP] 


SAVE NO. TO REPEAT ROW 


0E46 


88 44 04 




MOV 


[SI].REPR_NO,AL 




0E49 


8B FD 






MOV 


DI,BP 


SAVE START OF ROW 


0E4B 


E9 ODAD R 




JMP 


IPR20 


CONTINUE 


0E4E 








IPR_REPS 






0E4E 


45 






INC 


BP 


INC POINTER 


0E4F 


26: 8A 


46 


00 


MOV 


AL,ES:[BP] 


GET NO. TO REPEAT ROW 


0E53 


88 44 05 




MOV 


[SI].RSTR_NO,AL 


SAVE NO. TO REPEAT ROW 


0E56 


45 






INC 


BP 


INC POINTER 


0E57 


26: 8A 


4E 


00 


MOV 


CL,ES:[BP] 


GET LENGTH OF STRING 


0E5B 


45 






INC 


BP 


INC POINTER 


0E5C 


8B FD 






MOV 


DI,BP 


SAVE START OF STRING 


0E5E 








REPS09: 






0E5E 


51 






PUSH 


CX 


SAVE LENGTH OF STRING 


0E5F 


26: 8A 


46 


00 


REPS10: 


MOV AL,ES:[BP] 


GET CHARCTER 
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0E63 


3C 


02 


CMP 


AL,02 


0E65 


77 


06 


JA 


REPS30 


0E67 


45 




REPS20: 


INC BP 


0E68 


26 


8A 5E 00 


MOV 


BL,ES:[BP] 


0E6C 


45 




INC 


BP 


0E6D 


B4 


02 


REPS30: 


MOV AH, 2 


0E6F 


CD 


10 


INT 


10H 


0E71 


51 




PUSH 


CX 


0E72 


B9 


0001 


MOV 


CX,1 


0E75 


B8 


1300 


MOV 


AX.1300H 


0E78 


CD 


10 


INT 


10H 


0E7A 


59 




POP 


CX 


0E7B 


FE 


C2 


INC 


DL 


0E7D 


B3 


07 


MOV 


BL,07 


0E7F 


45 




INC 


BP 


0E80 


E2 


DD 


LOOP 


REPS10 


0E82 


59 




POP 


CX 


0E83 


FE 


4C 05 


DEC 


[SI].RSTR_NO 


0E86 


74 


04 


JZ 


REPS50 


0E88 


8B 


EF 


MOV 


BP,DI 


0E8A 


EB 


D2 


JMP 


REPS09 


0E8C 


4D 




REPS50: 


DEC BP 


0E8D 


E9 


ODAD R 


JMP 


IPR20 


0E90 






IPR_RST£ 


: 


0E90 


'45 




INC 


BP 


0E91 


26 


8A 46 00 


MOV 


AL,ES:[BP] 


0E95 


88 


44 05 


MOV 


[SI].RSTR_NO,AL 


0E98 


45 




INC 


BP 


0E99 


26 


8A 4E 00 


MOV 


CL,ES:[BP] 


0E9D 


45 




INC 


BP 


0E9E 


26 


8A 5E 00 


MOV 


BL,ES:[BP] 


0EA2 


45 




INC 


BP 


0EA3 


8B 


FD 


MOV 


DI.BP 


0EA5 


8B 


EF 


RSTA10: 


MOV BP,DI 


0EA7 


B8 


1300 


MOV 


AX,01300H 


OEAA 


CD 


10 


INT 


10H 


OEAC 


02 


Dl 


ADD 


DL,CL 


OEAE 


FE 


4C 05 


DEC 


[SI].RSTR_NO 


OEB1 


75 


F2 


JNZ 


RSTA10 


0EB3 






RSTA_RE1 




OEB3 


03 


E9 


ADD 


BP,CX 


OEB5 


4D 




DEC 


BP 


0EB6 


E9 


ODAD R 


JMP 


IPR20 


0EB9 






IPR_RET 




0EB9 


83 


C4 06 


ADD 


SP,6 








RESTORE 


OEBC 


IF 




POP 


DS 


OEBD 


07 




POP 


ES 


OEBE 


5F 




POP 


DI 


OEBF 


5E 




POP 


SI 


OECO 


5D 




POP 


BP 


OEC1 


5A 




POP 


DX 


0EC2 


59 




POP 


CX 


0EC3 


5B 




POP 


BX 


0EC4 


58 




POP 


AX 


OEC5 


C3 




RET 




0EC6 






ICON_PR 


ENDP 



CONTROL CODE 
JUMP IF NOT 

INC POINTER 

MOVE ATTRIBUTE TO BL 

INCREMENT BP 

SET CURSOR POSITION 

SAVE LOOP COUNT 

LENGTH OF STRING IS 1 BYTE 

WRITE STRING FOR INT10 

WRITE CHARACTER/ATTRIBUTE 

RESTORE LOOP COUNT 

INC COLUMN POINTER 

SET ATTRIBUTE TO NORMAL 

INC DATA POINTER 

WRITE CHAR TIL END OF STRING 

RESTORE LENGTH OF STRING 

DEC NO. TO REPEAT STRING 

CONT IF NO MORE REPITITIONS 

POINT TO BEGINNING OF STRING 

REPEAT STRING 

DECREMENT POINTER 
CONTINUE 

INC POINTER 

GET NO. TO REPEAT ROW 

SAVE 

INC POINTER 

GET LENGTH OF STRING 

INC POINTER 

GET ATTRIBUTE 

INC POINTER 

SAVE START OF ROW 

RESET POINTER 

WRITE STRING FOR INT 10 

DISPLAY STRING 

ADD TO COLUMN POINTER 

DEC NO. TO REPEAT STRING 

PRINT STRING AGAIN 

POINT TO POSTION IN DATA 

CONTINUE 



DE-ALLOCATE STACK SPACE 



RETURN TO CALLER 
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Diskette Interrupt Entry (DSKT.INT) 



0F57 

= 0F57 

0F57 E9 0000 E 



************************************** 

DISKETTE INTERRUPT ENTRY ADDRESS 
************************************* 

)RG 0EF57H 

ORG 00F57H 

DSKT_INT EQU $ 

JMP DSKT_INTE 



Diskette Drive Parameters 



*************************************************************** 

DISKETTE DRIVE TYPE PARAMETERS (FOR READ DRIVE PARAMETERS CALL) 



0F5A 

0F5A FOOO 

0F5C 0FC7 R 

0F5E 2709 

0F60 0100 



0F62 

0F62 FOOO 

0F64 0FC7 R 

0F66 4F09 

0F68 0100 



********************************************** 



TWO SIDED 5 1/4" DRIVE PARMS 

PARMS_TPI48 LABEL BYTE 

DW OFOOOH 

DW OFFSET DSKT_BASE 

DW 2709H 

DW 0100H 

TWO SIDED 3 1/2" DRIVE PARMS 

PARMS_TPI135 LABEL BYTE 
DW OFOOOH 
DW OFFSET DSKT_BASE 
DW 4F09H 
DW 0100H 

********************************* 

DISKETTE PARAMETER TABLE 
********************************* 

ORG 0EFC7H 

ORG 00FC7H 



********* 



POINTER TO DRIVE PARMS (SEG) 
POINTER TO DRIVE PARMS (OFF) 
MAX TRK #/S IDE, SECTOR/TRACK 
MAX HEAD #, F ILL 



POINTER TO DRIVE PARMS (SEG) 
POINTER TO DRIVE PARMS (OFF) 
MAX TRK #/SIDE, SECTOR/TRACK 
MAX HEAD #, FILL 



Diskette Timing Parameters 
(DSKT-BASE) 



************************************************** 

DSKT_BASE 
THIS IS THE SET OF PARAMETERS REQUIRED FOR 
DISKETTE OPERATION. THEY ARE POINTED AT BY THE 
DATA VARIABLE DISK_POINTER. TO MODIFY THE PARAMETERS, 
BUILD ANOTHER PARAMETER BLOCK AND POINT AT IT 



************************** 



********** 



******** 



0FC7 




DSKT_BASE 


LABEL 


BYTE 




0FC7 


DO 


DB 


11010000B 




SRT=D, HD UNLD=00 - 1ST 


0FC8 


02 


DB 


2 




HD L0AD=1, M0DE=DMA - 2ND 


0FC9 


25 


DB 


M0T0R_WAIT 




WAIT AFTER OPN TIL MOTOR OFF 


OFCA 


02 


DB 


2 




512 BYTES/SECTOR 


OFCB 


09 


DB 


9 




EOT ( LAST SECTOR ON TRACK) 


OFCC 


2A 


DB 


02AH 




GAP LENGTH 
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OFCD FF 

OFCE 50 

OFCF F6 

OFDO OF 

0FD1 04 



DB OFFH 

DB 050H 

DB 0F6H 

DB 15 

DB 4 



DTL 

GAP LENGTH FOR FORMAT 
FILL BYTE FOR FORMAT 
HEAD SETTLE TIME (MSEC) 
MOTOR START TIME (1/8 SEC) 



Printer I/O Entry (PRINTER-IO) 



0FD2 

= 0FD2 

0FD2 E9 0000 E 



********************************* 

PRINTER_IO ENTRY POINT 
********************************* 

ORG 0EFD2H 

ORG 00FD2H 
PRINTER_IO EQU $ 
JMP PRT_IO 



Video Parameters 



*************************************** 

VIDEO DISPLAY TYPE PARAMETER TABLES 
*************************************** 

WORD 1 = IBM DISPLAY NUMBER 

WORD 2 = # VERTICAL PELS / MICROMETER 

WORD 3 = # HORIZONTAL PELS / MICROMETER 

WORD 4 = TOTAL # OF VERTICAL PELS 

WORD 5 = TOTAL # OF HORIZONTAL PELS 

WORD 6 = HEIGHT OF PEL IN MICROMETER (VERTICAL DIRECTION) 

WORD 7 = WIDTH OF PEL IN MICROMETER (HORIZONTAL DIRECTION) 



0FD5 MONO_TBL LABEL WORD 

0FD5 5151 0000 0000 DW 5151H, 0,0,0, 0,0,0 
0000 0000 0000 0000 



TABLE FOR MONO DISPLAY 



0FE3 CGA_TBL LABEL WORD 

0FE3 5153 0498 0A15 DW 5153H,498H,0A15H,0C8H,280H,352H,184H 
O0C8 0280 0352 0184 



RGB DISPLAY 



0FF1 
0FF1 



OFFF 
OFFF 



1045 



5140 08E1 
O0C8 0280 



5140 0000 
0000 0000 



LCD_CGA_TBL LABEL WORD 
0987 DW 5140H,8E1H,987H,0C8H,280H,172H,172H ; TABLE FOR LCD 
0172 0172 

; AS A CGA DISPLAY 
LCD_MONO_TBL LABEL WORD 
0000 DW 5140H,0,0,0,0,0,0 ; TABLE FOR LCD AS A MONO 
0000 0000 

; DISPLAY 
*************************************** 

VIDEO_IO SUBROUTINE ADDRESS TABLE 
*************************************** 

ORG 0F045H 

ORG 01045H 

ASSUME CS:ROMCODE,DS:DATA,ES:VIDEO_RAM 



1045 




Ml LABEL 


WORD 


; TBL OF RTNS WITHIN VIDEO I/O 


1045 


0000 E 


DW 


OFFSET 


SET_MODE 


1047 


0000 E 


DW 


OFFSET 


SET_CTYPE 


1049 


0000 E 


DW 


OFFSET 


SET_CPOS 


104B 


0000 E 


DW 


OFFSET 


READ_CURSOR 


104D 


0000 E 


DW 


OFFSET 


READ_LPEN 


104F 


0000 E 


DW 


OFFSET 


ACT_DISP_PAGE 


1051 


0000 E 


DW 


OFFSET 


SCROLL_UP 


1053 


0000 E 


DW 


OFFSET 


SCROLL_DOWN 


1055 


0000 E 


DW 


OFFSET 


READ_AC_CURRENT 


1057 


0000 E 


DW 


OFFSET 


WRITE_AC_CURRENT 
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1059 0000 E 


DW 


OFFSET 


WRITE_C_CURRENT 


105B 0000 E 


DW 


OFFSET 


SET_COLOR 


105D 0000 E 


DW 


OFFSET 


WRITE_DOT 


105F 0000 E 


DW 


OFFSET 


READ_DOT 


1061 0000 E 


DW 


OFFSET 


WRITE_TTY 


1063 0000 E 


DW 


OFFSET 


VIDEO_STATE 


= 0020 


MIL 


EQU $- 


Ml 



Video I/O Entry (VIDEO-IO) 



************************************** 

VIDE0_I0 ROUTINE ENTRY POINT 
************************************** 



;0RG 0F065H 

1065 ORG 01065H 

= 1065 VIDE0_I0 EQU $ 

1065 E9 0000 E JMP VIDE0_I0_1 



Video Parameters 



*************************************** 

VIDEO PARMAMETER TABLE 
*************************************** 

;0RG 0F0A4H 
10A4 ORG 010A4H 

10A4 VIDE0_PARMS LABEL BYTE 



INIT_TABLE 



10A4 38 28 2D OA IF 06 DB 38H,28H,2DH,0AH, 1FH,6, 19H ; SET UP FOR 40X25 

19 

10AB 1C 02 07 06 07 DB 1CH,2,7,6,7 

10B0 00 00 00 00 DB 0,0,0,0 

= 0010 M4 EQU $-VIDEO_PARMS 

10B4 71 50 5A OA IF 06 DB 71H,50H,5AH,0AH, 1FH,6, 19H ; SET UP FOR 80X25 

19 

10BB 1C 02 07 06 07 DB 1CH,2,7,6,7 

10C0 00 00 00 00 DB 0,0,0,0 

10C4 38 28 2D OA 7F 06 DB 38H,28H,2DH,0AH,7FH,6,64H ; SET UP FOR GRAPHICS 

64 

10CB 70 02 01 06 07 DB 70H,2,1,6,7 

10D0 00 00 00 00 DB 0,0,0,0 

10D4 61 50 52 OF 19 06 DB 61H,50H,52H,0FH,19H,6,19H ; SET UP FOR 80X25 B&W 

19 

10DB 19 02 OD OB OC DB 19H,2,0DH,0BH,0CH 

10E0 00 00 00 00 DB 0,0,0,0 



10E4 M5 LABEL WORD 

10E4 0800 DW 2048 

10E6 1000 DW 4096 

10E8 4000 DW 16384 

10EA 4000 DW 16384 



TABLE OF REGEN LENGTHS 

40X25 

80X25 

GRAPHICS 



COLUMNS 



10EC M6 LABEL BYTE 

10EC 28 28 50 50 28 28 DB 40,40,80,80,40,40,80,80 
50 50 



ROM BIOS 2-231 



C_REG_TAB 



10F4 M7 LABEL 

10F4 2C 28 2D 29 2A 2E DB 
IE 29 



BYTE ; TABLE OF MODE SETS 

2CH,28H,2DH,29H,2AH,2EH,1EH,29H 



Memory Interrupt Hex 12 
(MEMORY-SIZE-DET) 



--- INT 12 

MEMORY_SIZE_DET 

THIS ROUTINE DETERMINES THE AMOUNT OF MEMORY IN THE SYSTEM 
AS REPRESENTED BY MEMORY_SIZE WORD. THE MEMORY_SIZE WORD IS SET 
BY POST WHEN IT HAS DETERMINED HOW MUCH MEMORY IS USABLE. IT IS 
SET IN IK INCREMENTS ON 8K BYTE BOUNDRIES 
INPUT 

NO REGISTERS 
OUTPUT 

(AX) = NUMBER OF CONTIGUOUS IK BLOCKS OF MEMORY 

AS DETERMINED BY THE POWER ON SELF TEST ROUTINE 



1841 


IE 




1842 


E8 085C 


R 


1845 
1848 


Al 0013 
IF 


R 


1849 


CF 





ORG 



ASSUME 


DS:DATA 




0F841H 






ORG 


01841H 




MEMORY_SIZE_DET PROC FAR 




PUSH 


DS 


; SAVE SEGMENT 


CALL 


DDS 




MOV 


AX,MEMORY_SIZE 


; GET VALUE 


POP 


DS 


; RECOVER SEGMENT 


IRET 




; RETURN TO CALLER 


MEMORY_SIZE_DET ENDP 





Equipment Interrupt Hex 11 
(EQUIPMENT) 



•-- INT 11 

EQUIPMENT DETERMINATION 

THIS ROUTINE ATEMPTS TO DETERMINE WHAT OPTIONAL 
DEVICES ARE ATTACHED TO THE SYSTEM. 



INPUT 



OUTPUT 



NO REGISTERS 

THE EQUIP_FLAG VARIABLE IS SET DURING THE POWER ON 
DIAGNOSTICS USING THE FOLLOWING HARDWARE ASSUMPTIONS: 
PORT 3FA = INTERRUPT ID REGISTER OF 8250 

BITS 7-3 ARE ALWAYS 
PORT 378 = OUTPUT PORT OF PRINTER -- 8255 PORT THAT 

CAN BE READ AS WELL AS WRITTEN 

(AX) IS SET, BIT SIGNIFICANT, TO INDICATE ATTACHED I/O 

BIT 15,14 = NUMBER OF PRINTERS ATTACHED 

BIT 13 = INTERNAL MODEM INSTALLED 

BIT 12 = GAME I/O ATTACHED 

BIT 11,10,9 = NUMBER OF SERIAL COMM DEVICES ATTACHED 

BIT 8 UNUSED 

BIT 7,6 = NUMBER OF DISKETTE DRIVES 

00=1, 01=2 
BIT 5,4 = INITIAL VIDEO MODE 

00 - UNUSED 

01 - 40X25 BW USING COLOR CARD 



2-232 ROM BIOS 





BIT 
BIT 

NO 


10 - 80X25 

11 - 80X25 
3,2,1 = RESERVED 

= IPL FROM DISKETTE - 
INSTALLED) 

OTHER REGISTERS AFFECTEC 


BW 
BW 

- 


USING 
USING 

ALWAYS 


COLOR CARD 
BW CARD 

A 1 (SYSTEM 


DISKETTE: 


, ORG 




0F84DH 











184D 




ORG 


0184DH 






184D 




EQUIPMENT 


PROC 


FAR 




184D 


IE 


PUSH 


DS 




; SAVE SEGMENT REGISTER 


184E 


E8 085C R 


CALL 


DDS 






1851 


Al 0010 R 


MOV 


AX,EQUIP_FLAG 




; GET THE CURRENT SETTINGS 


1854 


IF 


POP 


DS 




; RECOVER SEGMENT 


1855 


CF 


IRET 






; RETURN TO CALLER 


1856 




EQUIPMENT 


ENDP 







Cassette I/O Entry (No BIOS Support) 



1859 

= 1859 

1859 E9 0000 E 



•••it********************************************* 

CASSETTE I/O ENTRY POINT (NO BIOS SUPPORT) 
************************************************* 

ORG 0F859H 

ORG 01859H 
CASSETTE_IO EQU $ 
JMP SYS_SERVICES 



Character Generator Graphics 0-127 
(CHAR_GEN-LO) 



SUBTTL CHARACTER GENERATOR LOW 













CHARACTER GENERATOR GRAPHICS FOR 320X200 


AND 640X200 GRAPHICS 












AND DEFAULT LCD CHARACTER GENERATOR 
















FOR CHARACTERS 


OOH - 7FH 








ORG 




0FA6EH 








1A6E 














ORG 


01A6EH 






1A6E 














CHAR_GEN. 


_L0 LABEL BYTE 






1A6E 


00 
00 


00 
00 


00 ( 


)0 


00 


00 


DB 


000H,000H,000H,000H 5 000H 


000H,000H,000H 


D_00 


1A76 


3C 
5A 


42 
3C 


A5 / 


\5 


81 


BD 


DB 


03CH,042H,0A5H,0A5H,081H 


0BDH,05AH,03CH 


D_01 


1A7E 


3C 
66 


7E 
3C 


DB [ 


)B 


FF 


C3 


DB 


03CH,07EH,0DBH,0DBH,0FFH 


0C3H,066H,03CH 


D_02 


1A86 


36 
08 


7F 
00 


7F / 


F 


3E 


1C 


DB 


036H,07FH,07FH,07FH,03EH 


01CH,008H,000H 


D_03 


1A8E 


08 
08 


1C 
00 


3E / 


F 


3E 


1C 


DB 


008H,01CH,03EH,07FH,03EH 


01CH,008H,000H 


D_04 


1A96 


1C 
08 


3E 
1C 


1C ~ 


7 F 


7F 


36 


DB 


01CH,03EH,01CH,07FH,07FH 


036H,008H,01CH 


D_05 


1A9E 


08 
08 


1C 
1C 


3E / 


F 


7F 


36 


DB 


008H,01CH,03EH,07FH,07FH 


036H,008H,01CH 


D_06 


1AA6 


00 
00 


00 
00 


18 : 


5C 


3C 


18 


DB 


000H,00OH,018H,03CH,03CH 


018H,000H,000H 


, D_07 


1AAE 


FF 


FF 


E7 ( 


:3 


C3 


E7 


DB 


0FFH,0FFH,0E7H,0C3H,0C3H 


,0E7H,0FFH,0FFH 


, D_08 
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FF 


FF 
























1AB6 


00 
00 


00 
00 


3C 


66 


66 


3C 


DB 


OOOH 


OOOH 


03CH 


066H,066H,03CH 


OOOH, OOOH 


D_09 


1ABE 


FF 
FF 


FF 
FF 


C3 


99 


99 


C3 


DB 


OFFH 


OFFH 


0C3H 


099H,099H,0C3H 


OFFH, OFFH 


D_OA 


1AC6 


07 
3C 


03 
00 


3E 


66 


66 


66 


DB 


007H 


003H 


03EH 


066H,066H,066H 


03CH,000H 


D_OB 


1ACE 


3C 
3C 


66 
18 


66 


66 


3C 


18 


DB 


03CH 


066H 


066H 


066H,03CH,018H 


03CH,018H 


D_OC 


1AD6 


08 
38 


OC 
30 


OE 


OA 


OA 


08 


DB 


008H 


OOCH 


OOEH 


OOAH, OOAH, 008H 


038H,030H 


D_OD 


1ADE 


18 
07 


16 
06 


19 


17 


71 


61 


DB 


018H 


016H 


019H 


017H,071H,061H 


007H,006H 


D_OE 


1AE6 


48 
D6 


6B 
12 


3E 


E4 


27 


7C 


DB 


048H 


06BH 


03EH 


0E4H,027H,07CH 


0D6H,012H 


D_OF 


1AEE 


40 
40 


70 
00 


7C 


7F 


7C 


70 


DB 


040H 


070H 


07CH 


07FH,07CH,070H 


040H,000H 


D_10 


1AF6 


01 
01 


07 
00 


IF 


7F 


IF 


07 


DB 


001H 


007H 


01FH 


07FH,01FH,007H 


001H,000H 


D_ll 


1AFE 


18 
3C 


3C 
18 


7E 


18 


18 


7E 


DB 


018H 


03CH 


07EH 


018H,018H,07EH 


03CH,018H 


D_12 


1B06 


6C 
6C 


6C 
00 


6C 


6C 


6C 


00 


DB 


06CH 


06CH 


06CH 


06CH,06CH,000H 


06CH,000H 


D_13 


1B0E 


3F 
1A 


6A 
00 


6A 


3A 


OA 


OA 


DB 


03 FH 


06AH 


06AH 


03AH, OOAH, OOAH 


01AH,000H 


D_14 


1B16 


78 
DC 


EC 
78 


70 


D8 


6C 


38 


DB 


078H 


OECH 


070H 


0D8H,06CH,038H 


0DCH,078H 


D_15 


1B1E 


00 
7E 


00 
00 


00 


00 


7E 


7E 


DB 


OOOH 


OOOH 


OOOH 


000H,07EH,07EH 


07EH,000H 


D_16 


1B26 


18 
18 


3C 
FF 


7E 


18 


7E 


3C 


DB 


018H 


03CH 


07EH 


018H,07EH,03CH 


018H,0FFH 


D_17 


1B2E 


18 
18 


3C 
00 


7E 


5A 


18 


18 


DB 


018H 


03CH 


07EH 


05AH,018H,018H 


O18H,00OH 


D_18 


1B36 


18 
18 


18 
00 


18 


5A 


7E 


3C 


DB 


018H 


018H 


018H 


05AH,07EH,03CH 


018H,000H 


D_19 


1B3E 


00 
OC 


OC 
00 


06 


7F 


7F 


06 


DB 


OOOH 


OOCH 


006H 


07FH,07FH,006H 


OOCH, OOOH 


D_1A 


1B46 


00 
18 


18 
00 


30 


7F 


7F 


30 


DB 


OOOH 


018H 


030H 


07FH,07FH,030H 


018H,000H 


D_1B 


1B4E 


00 
00 


00 
00 


60 


60 


7F 


7F 


DB 


OOOH 


OOOH 


060H 


060H,07FH,07FH 


OOOH, OOOH 


D_1C 


1B56 


00 
14 


14 
00 


36 


7F 


7F 


36 


DB 


OOOH 


014H 


036H 


07FH,07FH,036H 


014H,000H 


D_1D 


1B5E 


08 
7F 


08 
00 


1C 


1C 


3E 


3E 


DB 


008H 


008H 


01CH 


01CH,03EH,03EH 


07FH,000H 


D_1E 


1B66 


7F 
08 


3E 
00 


3E 


1C 


1C 


08 


DB 


07FH 


03EH 


03EH 


01CH,01CH,008H 


008H,000H 


D_1F 


1B6E 


00 
00 


00 
00 


00 


00 


00 


00 


DB 


OOOH 


OOOH 


OOOH 


OOOH, OOOH, OOOH 


OOOH, OOOH 


SP D_20 


1B76 


30 
30 


30 
00 


30 


30 


30 


00 


DB 


030H 


030H 


030H 


030H,030H,000H 


030H,000H 


! D_21 


1B7E 


36 
00 


36 
00 


14 


00 


00 


00 


DB 


036H 


036H 


014H 


OOOH, OOOH, OOOH 


OOOH, OOOH 


" D_22 


1B86 


OA 
28 


OA 
00 


3F 


14 


7E 


28 


DB 


OOAH 


OOAH 


03 FH 


014H,07EH,028H 


028H,000H 


# D_23 


1B8E 


08 
08 


3E 
00 


68 


3E 


OB 


7E 


DB 


008H 


03EH 


068H 


03EH,00BH,07EH 


008H,000H 


$ D_24 


1B96 


01 
76 


3F 
00 


52 


6C 


IB 


35 


DB 


001H 


03FH 


052H 


06CH,01BH,035H 


076H,000H 


% D_25 


1B9E 


1C 
3B 


36 
00 


1C 


3B 


6E 


66 


DB 


01CH 


036H 


01CH 


03BH,06EH,066H 


03BH,000H 


& D_26 


1BA6 


18 
00 


18 
00 


30 


00 


00 


00 


DB 


018H 


018H 


030H 


OOOH, OOOH, OOOH 


OOOH, OOOH 


1 D_27 


1BAE 


06 
06 


OC 
00 


18 


18 


18 


OC 


DB 


006H 


OOCH 


,018H 


,018H,018H,00CH 


,006H,000H 


( D_28 


1BB6 


30 
30 


18 
00 


OC 


OC 


OC 


18 


DB 


030H 


018H 


,00CH 


,00CH,00CH,018H 


,030H,000H 


) D_29 


1BBE 


00 
00 


36 
00 


1C 


7F 


1C 


36 


DB 


OOOH 


036H 


,01CH 


,07FH,01CH,036H 


, OOOH, OOOH 


* D_2A 


1BC6 


00 
00 


18 
00 


18 


7E 


18 


18 


DB 


OOOH 


018H 


,018H 


,07EH,018H,018H 


,OOOH,OOOH 


+ D_2B 


1BCE 


00 
18 


00 
30 


00 


00 


00 


18 


DB 


OOOH 


5 000H 


,000H 


, OOOH, OOOH, 018H 


,018H,030H 


, D_2C 


1BD6 


00 


00 


00 


7E 


00 


00 


DB 


OOOH 


,000H 


,000H 


,07EH, OOOH, OOOH 


,000H,000H 


- D_2D 



2-234 ROM BIOS 





00 


00 






















1BDE 


00 
18 


00 
00 


00 


00 


00 


18 


DB 


OOOH 


,000H 


,000H 


,000H 


,000H 


1BE6 


03 
40 


06 
00 


OC 


18 


30 


60 


DB 


003H 


,006H 


,OOCH 


5 018H 


,030H 


1BEE 


18 
18 


2C 
00 


66 


66 


66 


34 


DB 


018H 


,02CH 


S 066H 


,066H 


,066H 


1BF6 


18 
3C 


18 
00 


38 


18 


18 


18 


DB 


018H 


,018H 


,038H 


018H 


,018H 


1BFE 


3C 
7E 


66 
00 


66 


OC 


18 


32 


DB 


03CH 


,066H 


,066H 


,OOCH 


,018H 


1C06 


3C 
3C 


66 
00 


OC 


1C 


06 


66 


DB 


03CH 


,066H 


,OOCH 


,01CH 


,006H 


1C0E 


OC 
IE 


1C 
00 


2C 


6C 


7E 


OC 


DB 


OOCH 


,01CH 


,02CH 


,06CH 


,07EH 


1C16 


7E 
3C 


60 
00 


7C 


66 


06 


66 


DB 


07EH 


060H 


07CH 


.Q.66H 


,006H 


1C1E 


1C 
3C 


30 
00 


60 


7C 


66 


66 


DB 


01CH 


030H 


060H 


07CH 


066H 


1C26 


7E 
38 


66 
00 


4C 


OC 


18 


18 


DB 


07EH 


066H 


04CH 


OOCH 


018H 


1C2E 


3C 
3C 


66 
00 


76 


3C 


6E 


66 


DB 


03CH 


066H 


076H 


03CH 


06EH 


1C36 


3C 
38 


66 
00 


66 


3E 


06 


OC 


DB 


03CH 


066H 


066H 


03EH 


006H 


1C3E 


00 
18 


18 
00 


18 


00 


00 


18 


DB 


OOOH 


018H 


018H 


OOOH 


OOOH 


1C46 


00 
18 


18 
30 


18 


00 


00 


18 


DB 


OOOH 


018H 


018H 


OOOH 


OOOH 


1C4E 


06 
06 


OC 
00 


18 


30 


18 


OC 


DB 


006H 


OOCH 


018H 


030H 


018H 


1C56 


00 
00 


00 
00 


7E 


00 


7E 


00 


DB 


OOOH 


OOOH 


07EH 


OOOH 


07EH 


1C5E 


30 
30 


18 
00 


OC 


06 


OC 


18 


DB 


030H 


018H 


OOCH 


006H 


OOCH 


1C66 


3C 
18 


66 

00 


26 


OC 


18 


00 


DB 


03CH 


066H 


026H 


OOCH 


018H 


1C6E 


3E 
3E 


41 
00 


5D 


55 


5F 


40 


DB 


03EH 


041H 


05DH 


055H 


05FH 


1C76 


1C 
63 


OC 
00 


1C 


16 


3E 


23 


DB 


01CH 


OOCH 


01CH 


016H 


03EH 


1C7E 


7C 
7E 


36 
00 


36 


3E 


33 


33 


DB 


07CH 


036H 


036H 


03EH 


033H 


1C86 


ID 
IE 


33 
00 


61 


60 


60 


31 


DB 


01DH 


033H 


061H 


060H 


060H 


1C8E 


7C 
7C 


36 
00 


33 


33 


33 


36 


DB 


07CH 


036H 


033H 


033H 


033H 


1C96 


7F 
7F 


31 
00 


34 


3C 


34 


31 


DB 


07FH 


031H 


034H 


03CH 


034H 


1C9E 


7F 
78 


31 
00 


34 


3C 


34 


30 


DB 


07FH 


031H 


034H 


03CH 


034H 


1CA6 


ID 
IF 


33 
00 


61 


60 


67 


33 


DB 


01DH 


033H 


061H 


060H 


067H 


1CAE 


66 
66 


66 
00 


66 


7E 


66 


66 


DB 


066H 


066H 


066H 


07EH 


066H 


1CB6 


3C 
3C 


18 
00 


18 


18 


18 


18 


DB 


03CH 


018H 


018H 


018H 


018H 


1CBE 


IF 
3C 


06 
00 


06 


06 


66 


66 


DB 


01FH 


006H 


006H 


006H 


066H 


1CC6 


67 
67 


66 
00 


6C 


78 


6C 


66 


DB 


067H 


066H 


06CH 


078H 


06CH 


1CCE 


78 
7F 


30 
00 


30 


30 


31 


33 


DB 


078H 


030H 


030H 


030H 


031H 


1CD6 


41 
63 


63 
00 


77 


7F 


6B 


63 


DB 


041H 


063H 


077H 


07FH 


06BH 


1CDE 


43 
63 


63 
00 


73 


7B 


6F 


67 


DB 


043H 


063H 


073H 


07BH 


06 FH 


1CE6 


1C 
1C 


36 
00 


63 


63 


63 


36 


DB 


01CH 


036H 


063H 


063H 


063H 


1CEE 


7E 
78 


33 
00 


33 


3E 


30 


30 


DB 


07EH 


033H 


033H 


03EH 


030H 


1CF6 


1C 
1C 


36 
07 


63 


63 


6B 


36 


DB 


01CH 


036H 


063H 


063H 


06BH 


1CFE 


7C 


66 


66 


7C 


6C 


66 


DB 


07CH 


066H 


066H 


07CH 


06CH 



,018H,018H,000H 
,060H,040H,000H 
,034H,018H,OOOH 
,018H,03CH,000H 
,032H,07EH,000H 
,066H,O3CH,000H 
, OOCH, 01EH, OOOH 
( 066H,03CH,000H 
,066H,03CH,OOOH 
,018H,038H,000H 
,066H,03CH,000H 
, OOCH, 038H, OOOH 
,018H,O18H,000H 
,018H,018H,030H 
,00CH,006H,000H 
,000H, OOOH, OOOH 
,018H,030H,000H 
,000H,O18H,O00H 
,040H,03EH,000H 
,023H,063H,000H 
,033H,07EH,000H 
,031H,01EH,000H 
,O36H,07CH,000H 
,031H,07FH,000H 
,030H,078H,000H 
,033H,01FH,000H 
,066H,066H,000H 
,018H,03CH,000H 
,066H,03CH,000H 
,066H,067H,000H 
,033H,07FH,000H 
,063H,063H,O00H 
,067H,063H,000H 
,036H,01CH,000H 
,030H,078H,000H 
,036H,01CH,007H 
,066H,067H,000H 



. D_2E 
/ D_2F 

D_30 

1 D_31 

2 D_32 

3 D_33 

4 D_34 

5 D_35 

6 D_36 

7 D_37 

8 D_38 

9 D_39 
: D_3A 
; D_3B 
< D_3C 
= D_3D 
> D_3E 
? D_3F 

D_40 
A D_41 
B D_42 
C D_43 
D D_44 
E D_45 
F D_46 
G D_47 
H D_48 

1 D_49 
J D_4A 
K D_4B 
L D_4C 
M D_4D 
N D_4E 
D_4F 
P D_50 
Q D_51 
R D_52 
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67 


00 




















1D06 


3E 
7C 


66 
00 


70 


3C 


OE 


66 


DB 


03EH 


,066H,070H 


03CH 


OOEH 


1D0E 


7E 
3C 


5A 
00 


18 


18 


18 


18 


DB 


07EH 


,05AH,018H 


018H 


018H 


1D16 


63 
3E 


63 
00 


63 


63 


63 


63 


DB 


063H 


,063H,063H 


063H 


063H 


1D1E 


77 
08 


62 
00 


36 


34 


1C 


18 


DB 


077H 


,062H,036H 


034H 


01CH 


1D26 


63 
22 


63 
00 


6B 


6B 


3E 


36 


DB 


063H 


,063H,06BH 


06BH 


03EH 


1D2E 


66 
66 


66 
00 


3C 


18 


3C 


66 


DB 


066H 


,066H,03CH 


018H 


03CH 


1D36 


E7 
3C 


66 
00 


34 


18 


18 


18 


DB 


0E7H 


066H,034H 


018H 


018H 


1D3E 


7E 
7E 


66 
00 


4C 


18 


32 


66 


DB 


07EH 


,066H,04CH 


018H 


032H 


1D46 


IE 
IE 


18 
00 


18 


18 


18 


18 


DB 


01EH 


018H,018H 


018H 


018H 


1D4E 


60 
01 


30 
00 


18 


OC 


06 


03 


DB 


060H 


030H,018H 


OOCH 


006H 


1D56 


3C 
3C 


OC 
00 


OC 


OC 


OC 


OC 


DB 


03CH 


,00CH,00CH 


OOCH 


OOCH 


1D5E 


08 
00 


1C 
00 


36 


63 


00 


00 


DB 


008H 


01CH,036H 


063H 


OOOH 


1D66 


00 
00 


00 
FE 


00 


00 


00 


00 


DB 


OOOH 


OOOH, OOOH 


OOOH 


OOOH 


1D6E 


18 
00 


18 
00 


OC 


00 


00 


00 


DB 


018H 


,018H,00CH 


OOOH 


OOOH 


1D76 


00 
7B 


00 
00 


3C 


66 


IE 


66 


DB 


OOOH 


000H,03CH 


066H 


01EH 


1D7E 


70 
6E 


30 
00 


3E 


3B 


33 


3B 


DB 


070H 


030H,03EH 


03BH 


033H 


1D86 


00 
3C 


00 
00 


3E 


66 


60 


66 


DB 


OOOH 


000H,03EH 


066H 


060H 


1D8E 


OE 
3B 


06 
00 


36 


6E 


66 


66 


DB 


00 EH 


006H,036H 


06EH 


066H 


1D96 


00 
3E 


00 
00 


3C 


66 


7E 


60 


DB 


OOOH 


000H,03CH 


066H 


07EH 


1D9E 


OE 
3C 


IB 
00 


18 


3E 


18 


18 


DB 


00 EH 


01BH,018H 


03EH 


018H 


1DA6 


00 
63 


00 
3E 


3D 


66 


38 


3E 


DB 


OOOH 


000H,03DH 


066H 


038H 


1DAE 


70 
73 


30 
00 


36 


3B 


33 


33 


DB 


070H 


030H,036H 


03BH 


033H 


1DB6 


18 
3C 


00 
00 


38 


18 


18 


18 


DB 


018H 


000H,038H 


018H 


018H 


1DBE 


OC 
6C 


00 
38 


1C 


OC 


OC 


6C 


DB 


OOCH 


000H,01CH 


OOCH 


OOCH 


1DC6 


70 
77 


30 
00 


33 


36 


3C 


36 


DB 


070H 


030H,033H 


036H 


03CH 


1DCE 


38 


18 


18 


18 


18 


18 


DB 


038H 


018H,.018H 


018H 


018H 




3C 


00 




















1DD6 


00 
6B 


00 
00 


76 


7F 


6B 


6B 


DB 


OOOH 


000H,076H 


07FH 


06BH 


1DDE 


00 
73 


00 
00 


76 


3B 


33 


33 


DB 


OOOH 


000H,076H 


03BH 


033H 


1DE6 


00 


00 


3C 


66 


66 


66 


DB 


OOOH 


000H,03CH 


066H 


066H 




3C 


00 




















IDEE 


00 
30 


00 
78 


6E 


33 


33 


3E 


DB 


OOOH 


,000H,06EH 


033H 


033H 


1DF6 


00 
06 


00 
OF 


3A 


66 


66 


3E 


DB 


OOOH 


,000H,03AH 


066H 


066H 


1DFE 


00 
78 


00 
00 


6E 


3B 


33 


30 


DB 


OOOH 


000H,06EH 


03BH 


033H 


1E06 


00 
7C 


00 
00 


3E 


70 


3C 


OE 


DB 


OOOH 


,000H,03EH 


070H 


03CH 


1EOE 


08 
OC 


18 
00 


3E 


18 


18 


1A 


DB 


008H 


,018H,03EH 


018H 


018H 


1E16 


00 
3B 


00 
00 


66 


66 


66 


66 


DB 


OOOH 


,000H,066H 


066H 


066H 


1E1E 


00 
08 


00 
00 


73 


32 


36 


1C 


DB 


OOOH 


,000H,073H 


032H 


036H 


1E26 


00 


00 


6B 


6B 


7F 


36 


DB 


OOOH 


,000H,06BH 


06BH 


07FH 



,066H,07CH,000H 
,018H,03CH,000H 
,063H,03EH,000H 
,018H,008H,000H 
,036H,022H,0O0H 
,066H,066H,000H 
,018H,03CH,000H 
,066H,07EH,000H 
,018H,01EH,000H 
,003H,001H,000H 
,00CH,03CH,000H 
, OOOH, OOOH, OOOH 
, OOOH, OOOH, OFEH 
,000H, OOOH, OOOH 
,066H,07BH,000H 
,03BH,06EH,000H 
,066H,03CH,000H 
,066H,03BH,000H 
,060H,03EH,000H 
,018H,03CH,000H 
,03EH,063H,03EH 
,033H,073H,000H 
,018H,03CH,000H 
,06CH,06CH,038H 
,036H,077H,000H 
,018H,03CH,000H 
,06BH,06BH,000H 
,033H,073H,000H 

,o66h,o3ch,oooh 

,03EH,030H,078H 
,03EH,0O6H,0OFH 
,030H,078H,000H 
, OOEH, 07CH, OOOH 
,01AH, OOCH, OOOH 
,066H,03BH,000H 
,01CH,008H,000H 
,036H,022H,000H 



S D_53 
T D_54 
U D_55 

V D_56 
W D_57 
X D_58 

Y D_59 
Z D_5A 
[ D_5B 
BSL D_5C 
] D_5D 
CIR D_5E 
_ D_5F 

Q D_60 
LC A D_61 
LC B D_62 
LC C D_63 
LC D D_64 
LC E D_65 
LC F D_66 
LC G D_67 
LC H D_68 
LC I D_69 
LC J D_6A 
LC K D_6B 
LC L D_6C 
LC M D_6D 
LC N D_6E 
LC D_6F 
LC P D_70 
LC Q D_71 
LC R D_72 
LC S D_73 
LC T D_74 
LC U D_75 
LC V D_76 
LC W D_77 
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22 


00 












1E2E 


00 
67 


00 
00 


73 


36 


1C 


36 


DB 


1E36 


00 
6C 


00 
38 


77 


33 


1A 


OC 


DB 


1E3E 


00 
7E 


00 
00 


7E 


4C 


18 


32 


DB 


1E46 


0E 
OE 


18 

00 


18 


70 


18 


18 


DB 


1E4E 


18 
18 


18 
00 


18 


00 


18 


18 


DB 


1E56 


70 
70 


18 
00 


18 


OE 


18 


18 


DB 


1E5E 


39 
00 


4E 
00 


00 


00 


00 


00 


DB 


1E66 


08 
7F 


1C 
7F 


1C 


36 


26 


63 


DB 



000H,000H 5 073H,036H,01CH,036H,067H,000H ; LC X D_78 

000H,000H,077H,033H,01AH,00CH,06CH,038H ; LC Y D_79 

000H,000H,07EH,04CH,018H,032H,07EH,000H ; LC Z D_7A 

00EH,018H,018H,070H,018H,018H,00EH 5 000H ; { D_7B 

018H,018H,018H,000H,018H,018H,018H,000H ; | D_7C 

070H,018H,018H,00EH,018H,018H,.070H,000H ; } D_7D 

O39H,04EH,0O0H,000H,000H,0O0H,O00H,000H ; ~ D_7E 

008H,01CH,01CH,036H,026H,063H,07FH,07FH ; DELTA D_7F 



Time of Day Entry (TIME_OF_DAY) 



*************************************** 

TIME_OF_DAY ROUTINE ENTRY POINT 
*************************************** 



;0RG 0FE6EH 
1E6E ORG 01E6EH 

= 1E6E TIME_OF_DAY EQU $ 
1E6E E9 0000 E JMP TOD_PROC 



Timer Interrupt Handler 
(TIMER_INT) 



*************************************** 

TIMER INTERRUPT HANDLER ADDRESS 
*************************************** 

;0RG 0FEA5H 
1EA5 ORG 01EA5H 

= 1EA5 TIMER_INT EQU $ 
1EA5 E9 0000 E JMP TMR0_INT8 



BIOS Vector Table (VECTOR-TABLE) 



*************************************** 

BIOS VECTOR TABLE 
• *************************************** 

•ORG 0FEF3H 
1EF3 ORG 01EF3H 

1EF3 VECTOR_TABLE LABEL WORD 



HARDWARE INTERRUPTS 
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VECTOR TABLE 


1EF3 


OOOO 


E 


DW 


OFFSET TMR0_INT8 


INTERRUPT 


8 TIMER 


1EF5 


0000 


E 


DW 


OFFSET KYBD_INT9 


INTERRUPT 


9 KEYBOARD 


1EF7 


1F23 


R 


DW 


OFFSET Dll 


INTERRUPT 


A 


1EF9 


1F23 


R 


DW 


OFFSET Dll 


INTERRUPT 


B 


1EFB 


1F23 


R 


DW 


OFFSET Dll 


INTERRUPT 


C 


1EFD 


1F23 


R 


DW 


OFFSET Dll 


INTERRUPT 


D 


1EFF 


0000 


E 


DW 


OFFSET DSKT_INTE 


INTERRUPT 


E DISKETTE 


1F01 


1F23 


R 


DW 
SOFTWARE 


OFFSET Dll 
INTERRUPTS 


INTERRUPT 


F 


1F03 


1065 


R 


DW 


OFFSET VIDEO_IO 


INT 10H 




1F05 


184D 


R 


DW 


OFFSET EQUIPMENT 


INT 11H 




1F07 


1841 


R 


DW 


OFFSET MEMORY_SIZE_DET 


; INT 12H 




1F09 


0000 


E 


DW 


OFFSET DSKT.IO 


INT 13H 




1FOB 


0000 


E 


DW 


OFFSET COMMO_IO 


INT 14H 




1FOD 


0000 


E 


DW 


SYS.SERVICES 


INT 15H 




1FOF 


0000 


E 


DW 


OFFSET KYBD_IO 


INT 16H 




1F11 


0000 


E 


DW 


OFFSET PRT_IO 


INT 17H 




1F13 


0000 




DW 


OOOOOH 


INT 18H (RESIDENT BASIC ST) 






;DW 


0F600H 




SEGMENT INT 18H FILLED IN 










BY SYS_SETUP ROUTINE) 


1F15 


0000 


E 


DW 


OFFSET SYS_BOOT 


INT 19H 




1F17 


0000 


E 


DW 


TOD_PROC 


INT 1AH - 


- TIME OF DAY 


1F19 


1F53 


R 


DW 


DUMMY_RETURN 


INT 1BH - 


- KYBD BREAK ADDR 


1F1B 


1F53 


R 


DW 


DUMMY_RETURN 


INT 1CH - 


- TIMER BREAK ADDR 


1F1D 


10A4 


R 


DW 


VIDEO_PARMS 


INT 1DH - 


- VIDEO PARAMETERS 


1F1F 


0FC7 


R 


DW 


OFFSET DSKT_BASE 


INT 1EH - 


- DSKT PARAMETERS 


1F21 


02C6 


R 


DW 


CHAR_GEN_HI 


INT 1FH - 


- PTR TO CHAR_GEN 






;0RG 0FF23H 








1F23 






ORG 


01F23H 







Default Interrupt Services (Dll) 



************** 



***************************** 



ROUTINE-NAME 



Dll 



FUNCTION: THIS ROUTINE IS UNUSED INTERRUPT LEVEL HANDLER INSTALLED 
BY POST FOR INTERRUPTS NOT USED BY BIOS. THIS ROUTINE RECORDS 
THE OCCURRENCE OF AN INTERRUPT IN INTR_FLAG AND PERFORMS A 
NON_SPECIFIC END_OF_INTERRUPT TO RESET THE INTERRUPT SERVICE. 

ENTRY CONDITIONS: 

PURPOSE OF ENTRY: UNUSED INTERRUPT OCCURRED 

INPUT CONDITIONS: NONE 

RESTRICTIONS: NONE 

EXIT CONDITIONS: 

NORMAL EXIT CONDITIONS: INTR.FLAG = 00-07 TO INDICATE IRPT # 

INTR_FLAG = OFFH WHEN NO HARDWARE IRPT 
FOUND ACTIVE 
THE INTERRUPTING LEVEL WILL BE MASKED IN 
THE INTERRUPT CONTROLLER IF POST IS NOT ACTIVE. 

ERROR EXIT CONDITIONS: NONE 

REGISTERS MODIFIED: NONE 
********************************************************************* 



1F23 

1F23 IE 

1F24 52 

1F25 50 

1F26 E8 085C R 



Dll PROC 

ASSUME DS:DATA 
PUSH DS 
PUSH DX 
PUSH AX 
CALL DDS 



NEAR 



SAVE REG AX CONTENTS 
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1F29 


BO 


OB 


1F2B 


E6 


20 


1F2D 


90 




1F2E 


E4 


20 


1F30 


OA 


CO 


1F32 


75 


05 


1F34 


B4 


FF 


1F36 


EB 


08 90 


1F39 






1F39 


E8 


1F57 R 


1F3C 


BO 


20 


1F3E 


E6 


20 


1F40 






1F40 


88 


26 006B 


1F44 


58 




1F45 


5A 




1F46 


IF 




1F47 


CF 




1F48 







MOV 

OUT 

NOP 

IN 

OR 

JNZ 

MOV 
JMP 



AL,OBH 
INTAOO,AL 

AL,INTAOO 

AL,AL 

HW_INT 

AH,OFFH 
D11_EXIT 



HARDWARE INTERRUPT OCCURRED 



HW_INT: 
CALL MASK_LEVEL 



MOV 
OUT 



AL,EOI 
INTAOO,AL 



SAVE INTR_FLAG AND EXIT 



D11_EXIT: 
MOV INTR_FLAG,AH 
AX 
DX 
DS 



POP 
POP 
POP 
IRET 
Dll 



READ IN-SERVICE REG 

(FIND OUT WHAT LEVEL BEING 

SERVICED) 

GET LEVEL 

NO HARDWARE IN SERVICE? 



SET NO LEVEL IN SERVICE FLAG 
SET FLAG TO FF IF NON-HDWARE 



GO MASK LEVEL, RETURN WITH 
AH INDICATING LEVEL MASKED 
SEND END OF INTERRUPT 



SET FLAG 

RESTORE REG AX CONTENTS 



ENDP 



1F53 



1F53 

1F53 CF 
1F54 



;ORG 



0FF53H 
ORG 



01F53H 



************************************* 

DUMMY INTERRUPT RETURN 
******************************************* 



****************************** 



DUMMY_RETURN 

IRET 
DUMMY.RETURN 



PROC 
ENDP 



1F54 
= 1F54 
1F54 E9 



*************************************** 

PRINT SCREEN ROUTINE ENTRY ADDRESS 
*************************************** 

ORG 0FF54H 

ORG 01F54H 
PRINT_SCREEN EQU $ 
0000 E JMP PRT_SCRN 
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1F57 
1F57 

1F58 B4 

1F5A E4 

1F5C 24 

1F5E 8A 

1F60 D2 

1F62 F6 

1F67 75 



********************************************************************** 

ROUTINE USED BY Dll HANDLER TO MASK THE INTERRUPT LVL BEING SERVICED 
********************************************************************* 



MASK_LEVEL 



PROC 



NEAR 



01 

AO 

07 

C8 

E4 

06 0012 R 01 

06 



PUSH 

MOV 

IN 

AND 

MOV 

SHL 

TEST 

JNZ 



CX 

AH, 01 

AL,IONMI_CNTL 

AL,07 

CL,AL 

AH,CL 



START AT LEVEL 

READ HIGHEST LVL IN SERVICE 

JUST KEEP LEVEL BITS 

GET LEVEL AS SHIFT COUNT 

AH CONTAINS MASK FOR LEVEL 

POST_STATUS,POST_ACTIVE ; POWER_ON_SELF_TEST ACTIVE? 

MASK_EXIT ; JUMP IF POST ACTIVE 



1F69 E4 

1F6B OA 

1F6D E6 
1F6F 

1F6F 59 

1F70 C3 
1F71 



IN 
OR 
OUT 



AL,INTA01 

AL,AH 

INTA01.AL 



GET MASK VALUE 

MASK OFF LVL BEING SERVICED 



MASK_EXIT: 
POP CX 
RET 

MASK_LEVEL 



ENDP 
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Hardware Power-on Reset Address 



1FF0 




1FF0 




1FF0 


EA 


1FF1 


0000 E 


1FF3 


F000 



t**************************************** 

POWER ON RESET VECTOR : 

***************************************** 



OFFFOH 






ORG 


01FF0H 




P_0_R 


LABEL FAR 




DB 


OEAH 


; HARD CODE JUMP FAR 


DW 


OFFSET POSTMAIN 


; OFFSET 


DW 


OFOOOH 


; SEGMENT 


ROMCODE 


ENDS 




END 
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Release Date Marker 



TITLE BLDMARK.ASM 

ROMCODE SEGMENT BYTE PUBLIC 
**************************************** 

MODULE RELEASE DATE MARKER : 

*************************************** 

OOOO 30 39 2F 31 33 2F DB '09/13/85' ;RELEASE MARKER 

38 35 
0008 4C DB 'L' ; BUILD NUMBER 



System Model Byte 



k- **************************************** 

P.C. MODEL BYTE FOR THIS MODEL : 
**************************************** 

;ORG OFFFEH 
0009 F9 DB 0F9H ;THIS PC'S ID 

OOOA ROMCODE ENDS 

END 
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Notes: 



Notes: 



Notes: 



Notes: 
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